Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#12

Re: SaveDialog - Add statt Overwrite

  Alt 14. Mai 2008, 20:35
Zitat:
Edit: Btw: fmCreate entspricht praktisch fmOpenReadWrite, mit dem Unterschied, dass die Datei erstellt wird, wenn sie nicht existiert.
Falsch!! fmCreate legt die Datei an wenn sie noch nicht existiert und wenn sie existiert wird der Dateiinhalt gelöscht!

Streams sind aus meiner Sicht schon der richtige Weg. Denn wenn man Objectpascal verwendet, warum sollte man dann nicht die vorhandenen Klassen nutzen sondern globale Funktionen?!

Delphi-Quellcode:
var lStream: TFileStream;
    lText: String;
begin
  lStream := TFileStream.Create(YourFileName, fmOpenReadWrite);
  try
    lStream.Position := lStream.Size;
    lText := 'Dein Text'#13#10;
    lStream.write(lText[1], Length(lText));
  finally
    lStream.Free;
  end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat