Hallo
ich weiss es gibt sehr viele Beiträge zu savetostream trotzdem komme ich im moment nicht weiter..
Habe hier im Forum schon was gefunden um ein TRichEdit zu speichern:
Delphi-Quellcode:
procedure TcFrame.Button2Click(Sender: TObject);
var
fs: TFileStream;
fm: word;
log: string;
begin
if Panel4.Caption <> '' then
begin
log := Panel4.Caption;
try
if FileExists(ExtractFilePath(ParamStr(0)) + '.\logs\' + log + '.log') then
fm := fmOpenReadWrite
else
fm := fmCreate;
fs := TFileStream.Create(ExtractFilePath(ParamStr(0)) + '.\logs\' +
log + '.log', fm, fmShareDenyWrite);
fs.Seek(0, soFromEnd);
cText.Lines.SaveToStream(fs);
finally
fs.Free;
end;
end;
end;
Nun möchte ich aber das ganze in einem OnChange Ereignis einbinden..im Grunde möchte ich dass wenn eine neue Zeile im RichEdit eingefügt wird dann diese Zeile in die Datei am Ende hinzufügen.
Wäre dankbar für jede Hilfe..