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.
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
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!