Orientação a objetos - erro na classe
30/11/2005
0
Boa noite!!!
Implementei a seguinte Classe base e a seguinte Classe descendente da Classe base e seus respectivos métodos:
unit UBusca;
interface
uses DB;
type
TBusca = class(TObject)
private
FDataSource: TDataSource;
public
procedure BuscarNome(Nome: string); virtual; abstract;
procedure Transferir(Codigo: Integer); virtual; abstract;
property DataSource: TDataSource read FDataSource write FDataSource;
end;
TBuscaEscolaridade = class(TBusca)
public
constructor Create;
destructor Destroy; override;
procedure BuscarNome(Nome: string); override;
[b:272c23485b][color=red:272c23485b]procedure Transferir(Codigo: Integer); override;[/color:272c23485b][/b:272c23485b]
end;
Só que nesta linha que está marcada de vermelho está me retornando o seguinte erro:
Unsatisfied forward or external declaration: ´TBuscaEscolaridade.Transferir´
Alguém poderia me ajudar com esse erro?
Desde já, agradeço-lhes.
Cristiano Mário
Implementei a seguinte Classe base e a seguinte Classe descendente da Classe base e seus respectivos métodos:
unit UBusca;
interface
uses DB;
type
TBusca = class(TObject)
private
FDataSource: TDataSource;
public
procedure BuscarNome(Nome: string); virtual; abstract;
procedure Transferir(Codigo: Integer); virtual; abstract;
property DataSource: TDataSource read FDataSource write FDataSource;
end;
TBuscaEscolaridade = class(TBusca)
public
constructor Create;
destructor Destroy; override;
procedure BuscarNome(Nome: string); override;
[b:272c23485b][color=red:272c23485b]procedure Transferir(Codigo: Integer); override;[/color:272c23485b][/b:272c23485b]
end;
Só que nesta linha que está marcada de vermelho está me retornando o seguinte erro:
Unsatisfied forward or external declaration: ´TBuscaEscolaridade.Transferir´
Alguém poderia me ajudar com esse erro?
Desde já, agradeço-lhes.
Cristiano Mário
Cristianojedi
Curtir tópico
+ 0
Responder
Posts
01/12/2005
_rodfaria_
Provavelmente você implementou seu método assim:
ao invés de:
procedure Transferir(Codigo: Integer); begin ... end;
ao invés de:
procedure TBuscaEscolaridade.Transferir(Codigo: Integer); begin ... end;
Responder
02/12/2005
_rodfaria_
Faça uso do atalho Ctrl+Shift+C quando estiver sobre a área de interface da classe para que o Delphi automaticamente crie o esqueleto na área implementation.
Responder
Clique aqui para fazer login e interagir na Comunidade :)