Erreur à l'utilisation d'une interface
Bonjour,
Dans une unité, j'ai défini l'interface suivante :
Code:
1 2 3
| ICustomer = interface
procedure Update;
end; |
Dans une autre unité, j'ai défini la classe suivante qui implémente cette interface :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| TActivitySector = class(ICustomer)
FName : string;
FSquareEconomy : TSquareEconomy;
FWorkers : integer;
FWare : TWare;
FProduction : integer;
{ Liste des ressources utilisées par le secteur }
FRessources : array of TWare;
constructor Create(ASquareEconomy: TSquareEconomy);
procedure ComputeProduction;
procedure Update;
end;
procedure TActivitySector.Update;
begin
//
end; |
A la compilation j'obtiens les erreurs suivantes :
Code:
1 2 3
| economy.pas(13,21) Error: No matching implementation for interface method "IUnknown.QueryInterface(const TGuid,out <Formal type>):LongInt;StdCall" found
economy.pas(13,21) Error: No matching implementation for interface method "IUnknown._AddRef:LongInt;StdCall" found
economy.pas(13,21) Error: No matching implementation for interface method "IUnknown._Release:LongInt;StdCall" found |