filecreate produziert e/a-32

[MikeS]

probiere es doch mal so!

Delphi-Quellcode:

assignfile(Datei, 'Termine.txt');  //assignfile geht auch wenn die datei nicht existiert!
if fileexists('Termine.txt') then
  append(Datei)
else  
  reset(Datei);

  

writeln(datei,'Uhrzeit:  '+datetimetostr(now));
closefile(Datei);