Danke euch, das Append hat genau den Effekt gehabt, den ich erreichen wollte. Hier für alle der dementsprechende Quellcode und das Ergebnis in der Datei:
Delphi-Quellcode:
Assign(fTempFile, ExtractFilePath(ParamStr(0))+ 'Temp\' + Speicherverzeichnis.sTempDatei);
if FileExists(ExtractFilePath(ParamStr(0))+ 'Temp\' + Speicherverzeichnis.sTempDatei) = true then Reset(fTempFile)
else Rewrite(fTempFile);
Append(fTempFile);
writeln(fTempFile,Text);
closeFile(fTempfile);
(ist nur kurzer Auszug aus der Procedure)
und hier die jetzt wesentlich ansehnliche Datei:
Zitat:
#Programm Start
#Prozedure VerzeichnisnameErzeugen Beginn
#Prozedure VerzeichnisnameErzeugen Ende
#Prozedure Verzeichnis (Teil Treeview geändert) Beginn
#Prozedure VerzeichnisstrukturAnlegen Beginn
#Prozedure VerzeichnisseExistieren Ende
#Prozedure Verzeichnis (Teil Treeview geändert) Ende
#Programm Start
#Programm Start
#V-Tisch1 antwortet nicht und ist offline
#V-Tisch1 v=5000, a=5000
#V-Tisch1Kalibrierung eingeleitet
#V-Tisch2 antwortet nicht und ist offline
#V-Tisch2 v=5000, a=5000
#V-Tisch2Kalibrierung eingeleitet
#Pi-Tisch antwortet nicht und ist offline
#Initialisierung abgeschlossen
#Prozedure Einstellungsanzeige Beginn
#Prozedure Einstellungsanzeige Ende
Danke an alle