Orientação a objetos - erro na classe
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
Curtidas 0
Respostas
_rodfaria_
30/11/2005
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;
GOSTEI 0
Cristianojedi
30/11/2005
Obrigado!!!
Era isso mesmo...
Vlw
Era isso mesmo...
Vlw
GOSTEI 0
_rodfaria_
30/11/2005
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.
GOSTEI 0
Cristianojedi
30/11/2005
Correto!!!
mais uma vez obrigado...
Cristiano Mário
mais uma vez obrigado...
Cristiano Mário
GOSTEI 0