einen "writeln" aufruf für mehrere Dateien verwendbar?

[p80286]

Das dürfte nicht funktionieren, da sich hinter Datei1,Datei2,TempDatei.... auch die Verwaltungsinformation einer Datei verbirgt.
Nimm einmal an Du hast Datei1 neu angelegt und 5 Datensätze geschrieben, dann schreibst Du 1 Datensatz (den 6.) über Tempdatei, wenn Du jetzt noch einen Datensatz schreiben willst ist das der 6. Datei1, der 2. TempDatei oder der 7. ?????
Wenn Du sagst wofür das gut sein soll könnte man Dir vielleicht einen guten Tip geben?

Gruß
K-H

P.S ich bevorzuge

Delphi-Quellcode:

assignfile(Datei1,Dateiname1);
if fileexists(Dateiname1) then
  append(Datei1)
else
  rewrite(Datei1);
if IOresult<>0 then Exit; { oder eine Fehlermeldung oder ...}