Nach Dateien in einem Ordner Suchen

**kagi3624**

Hallo, ich möchte einen Ordner nach allen Dateien durchsuchen und mit denen irgendwas machen. Dafür habe ich eine Funktion zusammengegoogelt und die macht eigentlich auch, was ich möchte.

markieren

Code:

			procedure TForm1.SearchFiles(filepath: string);

var

  MySearch: TSearchRec;

  FindResult: Integer;

begin

  FindResult:=FindFirst(filepath+'\*.*', faAnyFile, MySearch);

  if (MySearch.Name<>'.')and(MySearch.Name<>'..') then begin

    Memo1.Lines.Add(MySearch.Name);

    prepareFile(filepath, MySearch.Name, true);

  end;

  while FindNext(MySearch)=0 do

  begin

    if (MySearch.Attr<>faDirectory) and (MySearch.Name<>'.') and (MySearch.Name<>'..') then begin

      Memo1.Lines.Add(MySearch.Name);

      prepareFile(filepath, MySearch.Name, true);

    end;

  end;

end;

Allerdings meckert delphi

markieren

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!

Nach Dateien in einem Ordner Suchen

Nach Dateien in einem Ordner Suchen

Forumregeln