Bjr à vous,

Soit le code:

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
18
19
20
21
22
23
24
25
 
function DispDlgFindIDTerrain(const QDC: TToporobotStructure2012;
                              out   QDoMatchExact: boolean;
                              out   QFindWhat: string): boolean;
var
  BB: TdlgFindAStation;
begin
  Result := False;
  BB := TdlgFindAStation.Create(Application);
  try
    if (BB.Initialiser(QDC)) then // function Initialiser(const QDC: TToporobotStructure2012): boolean; 
    begin
      BB.ShowModal;
      if (BB.ModalResult = mrOK) then
      begin
        QFindWhat := BB.GetFindWhat();
        QDoMatchExact := BB.GetDoMatchExact();
        //ShowMessage(QFindWhat + ' - ' + BoolToStr(QDoMatchExact, 'Recherche exacte', 'Rechercher une partie'));
        Result := True;
      end;
    end;
  finally
    BB.Release;
  end;
end;
où TToporobotStructure2012 est une classe.

A la compilation, j'ai l'erreur suivante:

CallDialogsStdVersion.pas(1039,27) Error: Incompatible type for arg no. 1: Got "TToporobotStructure2012", expected "TToporobotStructure2012.ExportListePOIToCSV(const TStringDirectoryFilename);"

Je suis obliger de vider le dossier ./lib pour que tout rentre dans l'ordre

De quoi se taper la tête contre le mur ...