Hi,
ich habe hier zwei Programme die für sich alleine funktionieren. Jetzt sollen die verheiratet werden und die die vertragen sich nicht.
Hiermit suche ich nacheinander alle txt Dateinen, schreibe den Namen ins Memo und lösche danach.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
rec : tsearchrec;
Datum : String;
begin
if FindFirst('f:\*.txt', faAnyFile, rec) = 0 then
try
repeat
Datum := FormatDateTime('yyyy_mm_dd__hh_mm_ss', Now);
Anzahl := Anzahl+1;
Label2.Caption := IntToStr(Anzahl);
Memo1.Lines.add(Datum+ ' '+ rec.Name);
deletefile('f:\'+rec.Name);
until FindNext(rec) <> 0;
finally
FindClose(rec);
end;
end;
Das ist Ziel den Inhalt der gefundenen txt Datei in eine Stingliste zu laden, was die Fehlermeldung
Unable to open file"xxxx.txt" verursacht. Hat jemand eine Idee was sich beißt?
Delphi-Quellcode:
begin
sl := TStringList.Create;
if (FindFirst('f:\*.txt', faAnyFile, rec) = 0) then
try
sl.LoadFromFile(rec.Name);