Findfirst, findnext, findclose

Für Fragen von Einsteigern und Programmieranfängern...

Findfirst, findnext, findclose

Beitragvon malabarista » 7. Sep 2018, 10:15 Findfirst, findnext, findclose

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 ?
malabarista
 
Beiträge: 318
Registriert: 11. Jun 2016, 12:16
Wohnort: Konstanz
OS, Lazarus, FPC: Linux Mint 18.1 L1.6.2-1 FPC 3.0.0 | 
CPU-Target: 64Bit
Nach oben

Beitragvon Martin V » 7. Sep 2018, 10:59 Re: Findfirst, findnext, findclose

Probier mal sysutils.findfirst ... . Es gibt glaube ich mehr als eine firndfirst... Deklaration.
Martin V
 
Beiträge: 125
Registriert: 30. Jan 2010, 20:35
OS, Lazarus, FPC: Winux (L 0.9.xy FPC 2.2.z) | 
CPU-Target: xxBit
Nach oben

Beitragvon Mathias » 7. Sep 2018, 18:14 Re: Findfirst, findnext, findclose

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.
Mit Lazarus sehe ich gün
Mit Java und C/C++ sehe ich rot
Mathias
 
Beiträge: 4345
Registriert: 2. Jan 2014, 18:21
Wohnort: Schweiz
OS, Lazarus, FPC: Linux (die neusten Trunc) | 
CPU-Target: 64Bit
Nach oben

Beitragvon malabarista » 7. Sep 2018, 18:28 Re: Findfirst, findnext, findclose

gut zu wissen...
malabarista
 
Beiträge: 318
Registriert: 11. Jun 2016, 12:16
Wohnort: Konstanz
OS, Lazarus, FPC: Linux Mint 18.1 L1.6.2-1 FPC 3.0.0 | 
CPU-Target: 64Bit
Nach oben

• Themenende •

Zurück zu Einsteigerfragen



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste

porpoises-institution
accuracy-worried