Fragen bezüglich Stringlisten und Parallelem Port

[shmia]

Mit folgender Procedure kann man eine StringListe (bzw. alles, was von TStrings abgeleitet wurde) an eine schon bestehende Datei anhängen:

Delphi-Quellcode:

procedure AppendTStringsToFile(sl:TStrings; const filename:string);
var
   stream : TStream;
const
   SO_END=2;
begin
   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
      sl.SaveToStream(stream);
   finally
      stream.Free;
   end;
end;