Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#1

Daten von TStrings an eine Datei anhängen

  Alt 12. Jan 2007, 13:03
shmia stellt in diesem Beitrag eine Prozedur vor, mit dieser man Daten von Objekten, die von TStrings abgeleitet wurden (Beispiel: TStringList) an eine schon bestehende Datei anhängen kann.

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;
  Mit Zitat antworten Zitat