Orientação a objetos - erro na classe

Delphi

30/11/2005

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


Cristianojedi

Cristianojedi

Curtidas 0

Respostas

_rodfaria_

_rodfaria_

30/11/2005

Provavelmente você implementou seu método assim:
procedure Transferir(Codigo: Integer);
begin
...
end;


ao invés de:
procedure TBuscaEscolaridade.Transferir(Codigo: Integer);
begin
...
end;



GOSTEI 0
Cristianojedi

Cristianojedi

30/11/2005

Obrigado!!!

Era isso mesmo...

Vlw


GOSTEI 0
_rodfaria_

_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

Cristianojedi

30/11/2005

Correto!!!

mais uma vez obrigado...

Cristiano Mário


GOSTEI 0
POSTAR