Einzelnen Unicodestring an Datei anhängen

[DeddyH]

Trotzdem würde ich die Routine noch ein wenig ändern (ungetestet, Denkfehler vorbehalten):

Delphi-Quellcode:

procedure AddToLog(const LogFile: string; Msg: string);
const 
  Modes: array[Boolean] of word = (fmOpenReadWrite, fmCreate);
var
  FLogStream: TStream;
begin
  ForceDirectories(ExtractFilePath(LogFile));
  try
    FLogStream := TFileStream.Create(LogFile, Modes[FileExists(LogFile)] or fmShareDenyWrite);
    try
      FLogStream.Seek(0, soFromEnd) ;
      Msg := Msg + sLineBreak;
      FLogStream.Write(Pointer(Msg)^, Length(Msg) * SizeOf(Char)) ;
    finally
      FLogStream.Free;
    end;
  except
    on E: Exception do
      MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
  end;
end;