Bonjour,

Dans une unité, j'ai défini l'interface suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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