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..
#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
Curtir tópico
+ 0
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
TBussinesServerClient = class(TInterfacedObject,IFormBase);
a virgula no final da lina ..ali estava o problema ...
Muito obrigado a todos
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)