Einzelnen Beitrag anzeigen

zaphood

Registriert seit: 19. Jan 2020
Ort: Hattingen
11 Beiträge
 
FreePascal / Lazarus
 
#1

FindFirst und Inhalt von txt Datei in Stringlist laden

  Alt 27. Jan 2020, 20:44
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);
Dirk
  Mit Zitat antworten Zitat