Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#7

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

  Alt 5. Sep 2011, 17:35
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 ...}
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat