Forum: Programmieren allgemein
by zaphood,
28. Jan 2020
Guten Morgen und danke für die Tipps.:thumb:
@Bernd: es klappt mit der Pfadangabe:-D
@DieDolly: Mit ShowMessage(rec.Name); bekomme ich die Textdatei angezeit.
Mit sl.LoadFromFile('SPC.txt'); in einem anderen Programm lade ich eine txt Datei aus dem Programmverzeichnis. Wusste nicht das die Syntax für die Übergabe von FindFirst/tsearchrec an die Stringlist anders lauten muss.
Forum: Programmieren allgemein
by zaphood,
27. Jan 2020
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.
procedure TForm1.FormCreate(Sender: TObject);
var
rec : tsearchrec;
Datum : String;
begin
if FindFirst('f:\*.txt', faAnyFile, rec) = 0...