Fehlermeldung bei "FindFirst()"

[Bastler]

Ich habe folgenden Code:

Delphi-Quellcode:

type  TSearchRec = record
      Time: Integer;   // Zeitstempel der Datei.
      Size: Integer;   // Größe der Datei in Byte.
      Attr: Integer;   // Dateiattribute der Datei.
      Name: TFileName;   // DOS-Dateiname und -Dateinamenserweiterung
      ExcludeAttr: Integer;
      FindHandle: THandle;
      FindData: TWin32FindData;
      end;
var
  Form1: TForm1;
  pfad:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var SuchRec:TSearchRec;
begin
SelectDirectory('Wähle den Ordner', '', pfad);

FindFirst('c:\programme\*.*', faAnyFile, SuchRec); //*
if ExtractFileExt(Suchrec.name) = 'log' then
Combobox1.Items.Add(Suchrec.Name);
if FindNext(SuchRec) = 0 then  //*
Combobox1.Items.Add(SuchRec.Name)
else
FindClose(SuchRec);  //*

end;

Bei den mit //* makierten Zeilen gibt er mit immer folgende Fehlermeldung aus:

Zitat:

[Fehler] Unit1.pas(51): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

Aber meiner Meinung nach stimmen die Parameter überein... (vor allem, weil es das gleiche Record ist, wie es in der Hilfe angegeben ist)

[Luckie]

Es muss ein Zeiger auf die TSearchRect Struktur sein. Also muss es @SuchRec heißen. Aber warum hast du die Struktur noch mal selber deklariert? Die wird doch schon von Delphi selber deklariert in der Unit Windows.pas oder so.

[Schaedel]

Warum erstellst du den Searchrect überhaupt neu?
Edit:Naja Luckie war schneller

Also bei mir funktioniert es so auf jeden fall.

Delphi-Quellcode:

procedure xy.xxxx;
var
  Search : TSearchRec;
begin 
  if FindFirst (Directory+'\*.*' , faAnyFile-faSysFile, Search) = 0 then begin
    repeat
      fiExt := uppercase(ExtractFileExt(search.name));
....

[Bastler]

Naja... danke für den Tipp, dass es in der Windows.pas deklariert ist, damit hast du mir indirekt geholfen, da es nämlich kein Pointer sein muss, aber meine doppelte Deklaration Probleme gemacht hat...

[CCRDude]

Zitat von Luckie:

Es muss ein Zeiger auf die TSearchRect Struktur sein. Also muss es @SuchRec heißen.

Ist doch var, FindFirst braucht keinen Zeiger. Hab gerade mal in meinen Code geschaut, dutzende von Aufrufen ohne Zeiger

[Luckie]

War ehrlich gesagt auch nur etwas ins Blaue geraten. Ich war zu faul in der Hilfe zu gucken.

[Christian Seehase]

Moin Bastler,

Du solltest Dir übrigens angewöhnen bei Funktionen, deren Rückgabewert einen Fehler signalisiert, diesen auch auszuwerten, so wie Schaedel es in seinem Beitrag gezeigt hat.
Ausserdem gehört bei Funktionen die im Erfolgsfalle Resourcen belegen, wie auch FindFirst, ein try/finally-Block dazu, der sicherstellt, dass die Resourcen auch wieder freigegeben werden.

Was Du aber nicht wie Schaedel machen solltest:
faAnyFile-faSysFile Bei Flags, die intern Bitfelder darstellen, sollte man diese mit and not aus der Maske entfernen, und mit or hinzufügen, da man sonst leicht ungültige Werte erhalten kann.
Das obige Beispiel sollte also besser
faAnyFile and not faSysFile lauten.

Auch wenn es in diesem speziellen Falle mit - funktionier.