Orientação a objetos - erro na classe

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

Respostas

01/12/2005

_rodfaria_

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


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



Responder Citar

02/12/2005

Cristianojedi

Obrigado!!!

Era isso mesmo...

Vlw


Responder Citar

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 Citar

02/12/2005

Cristianojedi

Correto!!!

mais uma vez obrigado...

Cristiano Mário


Responder Citar