Hallo erstmal =)
Ich möchte für ein kleines Programm die Namen aller Dateien, die in in einem bestimmten Orner liegen einlesen
und in einem Memofeld ausgeben. Dank Google bin ich da auf findfirst() und findnext() gestoßen.
nur leider komm ich damit noch nicht so ganz klar.
Ich bitte euch mir kurz zu erklären, was ich falsch mache. Denn es wird immer nur ein Dateiname ausgegeben
und das auch nur, wenn ich die Datei genau festlege. Also zum Beispiel wenn ich directory:='F:/report.xls' setze,
wird im Memo1 "report.xls" ausgegeben.
Danke schonmal =)
Gruß
Rico
Hier ist mein Code:
Delphi-Quellcode:
procedure TForm1.LadenClick(Sender: TObject);
var directory: String;
fle: tSearchRec;
list: tStringList;
begin
list:=tstringlist.create;
directory:='F:/';
if findfirst(directory, faAnyFile, fle) = 0 then
begin
repeat
list.add(fle.name);
until findnext(fle) <> 0;
end;
Memo1.Lines.Add(fle.Name);
end;