Findfirst, findnext, findclose

[malabarista]

Ich habe gemäß einem Beispiel in der Lazarus-Doku
https://www.freepascal.org/docs-html/rt ... first.html
eine prozedure zum Dateisuchen erstellt.
Leider bekomme ich einen Compilerfehler:
Error: Incompatible type for arg no. 1: Got "TRawbyteSearchRec", expected "LongWord"
(windows, 32-bit)

Code: Alles auswählen

 
procedure TForm1.datei_transfer(muster:string);
 
var
  info : TSearchRec;
  count : Longint;
  z:string;
 
begin
count:=0;
If FindFirst(muster,faAnyFile,info)=0 then
   begin
   Repeat
      inc(count);
      with info do
        begin
        z:=name;
        .... 
        end;
   until FindNext(info)<>0;
   end;
FindClose(info); //<- dies ist die vom Compiler monierte Zeile
end;
 

Was ist da falsch ?

[Martin V]

Probier mal sysutils.findfirst ... . Es gibt glaube ich mehr als eine firndfirst... Deklaration.

[Mathias]

Uses Windows eingebunden ?
Diese FindClose verlangt einen HANDLE und dieser ist ein LongWord.

Am besten umgehst dies so, wen die Unit Windows zwingend gebraucht wird.

Code: Alles auswählen

uses
  Classes, ...., Windows // Alt  
  Windows, Classes, .... // Neu

Diese Deklarationsänderung spart dir auch für andere Sachen Ärger.

[malabarista]

gut zu wissen...