Nach Dateien in einem Ordner Suchen

[Achim Kalwa]

Zitat von kagi3624:

Code:

[Hinweis] meeh.pas(85): Auf 'FindResult' zugewiesener Wert wird niemals benutzt

Die Zeile kann ich auch nicht ausblenden, dann funktioniert es nicht mehr. Kann ich den Hinweis irgendwie beheben oder einfach ignorieren? Danke!

Der Compiler hat Recht. Der Inhalt von FindResult zeigt an, ob die Suche mittels FindFirst erfolgreich war oder nicht. Und weil Du diesen Wert nicht prüfst, meckert der Compiler.

Besser wäre folgender Code:

Code:

var
  MySearch: TSearchRec;
  FindResult: Integer;
begin
  FindResult := FindFirst(filepath+'\*.*', faAnyFile, MySearch);
  while FindResult = 0 do
  begin
    if (MySearch.Name<>'.')and(MySearch.Name<>'..') then begin
      Memo1.Lines.Add(MySearch.Name);
      prepareFile(filepath, MySearch.Name, true);
    end;

    FindResult := FindNext(MySearch);
  end;
  FindClose(MySearch);
end;

FindResult wird jetzt bei jedem Schleifendurchgang ausgewertet. Sobald der Wert von 0 abweicht, wird die Schleife beendet. Wichtig ist auch das FindClose(), damit werden intern verwendete Daten korrekt freigegben (hier: ein Handle).