hi, er will nichts schreiben ...
Delphi-Quellcode:
var
Form1: TForm1;
Logfile: String;
Dateandtime: String;
Delphi-Quellcode:
if FileExists('./logs') then begin // Wenn es den Ordner "logs" gibt, dann ...
// ---START LOGFILE WRITING CHECK ---
Dateandtime := DateTimeToStr(Now);
rewrite(Logfile,Dateandtime + '.log.txt');
// -- END LOGFILE WRITING CHECK ---
end
else
// Mache einen Ordner
das mit dem Mache ein Ordner ist noch nicht drin hab noch nicht gegoogelt, kommt aber wenn das schreiben gehen würde.