SaveDialog - Add statt Overwrite

[Z4ppy]

Also... Ich hab das jetz so gemacht:

Delphi-Quellcode:

procedure AddStringToFile(const s: string; const filename: string);
var lStream: TFileStream;
    lText: String;
begin
  lStream := TFileStream.Create(filename, fmOpenWrite or fmShareDenyNone);
  try
    lStream.Position := lStream.Size;
    lText := #13#10+s;
    lStream.write(lText[1], Length(lText));
  finally
    lStream.Free;
  end;
end;

Diese Prozedur ruf ich dann bei nem Button-Klick auf mit dem entsprechenden string und dem Dateinamen...
Vor dem Aufruf der Prozedur überprüf ich noch, ob die Datei besteht - wenn nicht, wird sie erstellt. Ist das evtl. der Knackpunkt?

MfG Z4ppy

[ADD] Wenn ich das nun mit einer Datei aufrufe, die bereits existiert, geht alles tadellos... Aber wenn ich einen Dateinamen angebe beim SaveDialog, der nicht existiert, wird die Datei zunächst erstellt und dann kommt die Fehlermeldung...