PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum Interface e classes ...Erro #375458

30/09/2009

0

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

Responder

Posts

30/09/2009

Mortarello

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar