SaveToStream in OnChange Ereignis...

[Christian Seehase]

Moin litsa,

mit PlainText := true dürfte das so funktionieren:

Delphi-Quellcode:

var
  sLine : string;

begin
  if cText.Lines.Count = 0 then exit;
  fs := TFileStream.Create(....);
  try
    sLine       := cText.Lines[cText.Lines.Count-1]+#13#10;
    fs.Position := fs.Size;
    fs.Write(sLine[1],length(sLine));
  finally
    FreeAndNil(fs);
  end;
end;

Vielleicht könntest Du den Filestream auch als Feld im Formular anlegen, und im OnCreate erzeugen (OnDestroy freigeben), so dass Du ihn nicht immer neu erzeugen musst.