Hallo :)
Ich programmiere erst sein kurzem mit Delphi. Bin ehr ein 'Hobby'-Programmier deswegen bitte ich euch nicht so hart zu mir zu sein falls ich was falsch gemacht habe :oops:
Ich habe da was geschrieben, es soll mit alle Dateien und Ordner eines Verzeichnisses meiner Wahl auflisten und in einer Text-Datei speichern. Es hat ja gestern noch funktioniert aber als ich heute morgen weitermachen wolte, funktionierte es nicht mehr. Es wird eine Text-Datei erstellt aber ohne Inhalt und im Memo-Feld wird auch nichts angezeigt.
Könnt ihr mir bitte weiterhelfen :?:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
verz: String;
f:tsearchrec;
error : Integer;
begin
verz:='C:\';
error := findfirst(verz,faanyfile,f);
try
while error = 0 do
begin
Memo1.Text:=Memo1.Text+#13#10+'--> '+f.name;
error := findnext(f);
end;
finally
findclose(f);
Form1.Memo1.Lines.SaveToFile('dateiliste.txt');
end;
end;