String in einer Textdatei anhängen

[shmia]

Versuchs mal damit.
So können auch binäre Daten (wie z.B. #$00) die bei Verschlüsseln entstanden sind
gespeichert werden.

Delphi-Quellcode:

procedure AppendStringToFile(const s:String; const filename:string);
var
   stream : TStream;
const
   SO_END=2;
begin
   if s = '' then
      Exit;
   if FileExists(filename) then
   begin
      stream := TFileStream.Create(filename, fmOpenReadWrite or fmShareDenyWrite);
      stream.Seek(0, SO_END);
   end
   else
      stream := TFileStream.Create(filename, fmCreate or fmShareDenyWrite);
   try
      stream.Writebuffer(s[1], Length(s));
   finally
      stream.Free;
   end;
end;