Array
(
)

Orientação a objetos - erro na classe

Cristianojedi
   - 30 nov 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;
procedure Transferir(Codigo: Integer); override;
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


_rodfaria_
   - 01 dez 2005

Provavelmente você implementou seu método assim:
#Código


procedure Transferir(Codigo: Integer);
begin
...
end;


ao invés de:
#Código

procedure TBuscaEscolaridade.Transferir(Codigo: Integer);
begin
...
end;



Cristianojedi
   - 02 dez 2005

Obrigado!!!

Era isso mesmo...

Vlw


_rodfaria_
   - 02 dez 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.


Cristianojedi
   - 02 dez 2005

Correto!!!

mais uma vez obrigado...

Cristiano Mário