in this procedure
procedure FindAll (const Path: String; Attr: Integer; List: TStringList);
var
Res: TSearchRec;
EOFound: Boolean;
begin
EOFound:= False;
if FindFirst(Path, Attr, Res) < 0 then exit
else
while not EOFound do
begin
if Res.Name<>'' then List.Add(Res.Name) ;
EOFound:= FindNext(Res) <> 0;
end;
FindClose(Res) ;
end;
I get an error on the res argument of FindClose:
a_file.pas(1419,19) Error: Incompatible type for arg no. 1: Got "TRawbyteSearchRec", expected "QWord".
Lazarus jumps into fileutilh.inc, where indeed there are the correct definitions. Then I guess that some different unit has redefined FindClose in incompabile way (I had to add to my slim projects some complex components...)
Is there a syntax to force the compiler to reference the fileutilh.inc ?