Interface e classes ...Erro

Delphi

30/09/2009

Bom dia pessoal Eu criei uma interface Base para os formularios , mas quando eu vou criar as classe herdando da interface base o delphi fica me genrando um erro ...

#minha interface

unit UInterfaceBase;

interface
uses classes;


type
IFormBase = interface
[´{854EB214-72CC-4677-89F1-4E786B2A431A}´]

Procedure Insert(lcField:TStrings);
Procedure Update(lcField:TStrings);
procedure AskDelete(lcAsk:Boolean);
Procedure Delete(lcID : Integer);
procedure Validatefield(lcAsk: Boolean);
end;

implementation

end.


minha classe Cliente

unit UBussines.Server.Client;

interface

uses UInterfaceBase,Classes,Forms,Messages,DBClient;

type
TBussinesServerClient = class(TInterfacedObject,IFormBase);
Private
Procedure Insert(lcField:TStrings);
Procedure Update(lcField:TStrings);
Procedure AskDelete(lcAsk:Boolean);
Procedure Delete(lcID : Integer);
Procedure Validatefield(lcAsk: Boolean);
end;


implementation

end.

Entao o delphi fica de gerando um monte de erros tais como :

1 - E2029´=´expected but PROCEDURE found

Alguem sabe me explicar o porque disso por aparentemente eu nao vejo onde eu estou errando ..

Muito obrigado galera..


Mortarello

Mortarello

Curtidas 0

Respostas

Mortarello

Mortarello

30/09/2009

Pesseoal revendo aqui os codigos tinha uma virgula ..e pra acabar ne ...

TBussinesServerClient = class(TInterfacedObject,IFormBase);

a virgula no final da lina ..ali estava o problema ...

Muito obrigado a todos


GOSTEI 0
POSTAR