String to StreamProblem!

[DeddyH]

Mal ein Beispiel (die Zeitformatierung kannst Du ja anpassen):

Delphi-Quellcode:

var Log: textfile;
    s: string;
begin
  if DirectoryExists(ExtractFilePath(ParamStr(0)) + 'logs') then
    begin
      s := ExtractFilePath(ParamStr(0)) + 'logs\' + FormatDateTime('yyyymmddhhnnss',Now) + '.log.txt';
      AssignFile(Log,s);
      rewrite(Log);
      writeln(Log,'Test');
      CloseFile(Log);
    end;
end;