Bug énervant du compilateur
Bjr à vous,
Soit le code:
Code:
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 ...
