SaveToStream in OnChange Ereignis...

[litsa]

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..

[Christian Seehase]

Moin Litsa,

muss es unbedingt ein Richedit sein, bzw. brauchst Du die Formatierung, oder ist das RichEdit auf PlainText eingestellt?

[litsa]

hi
also es muss ein richedit sein (habe schon ne menge code fertig) und ja is auf plan text eingestellt..

[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.

[litsa]

Hallo Christian
also OnChange will einfach nicht :( Nur mit ButtonClick krieg ich's hin..

Delphi-Quellcode:

fs.Write(sLine[1],length(sLine));

schreibt die zeile in ner art delimited text oder so ähnlich (wenn mehrere strings vorkommen)in die datei...ansonsten fügt er die zeile 3 mal in die datei ein..

[DGL-luke]

Du solltest es mit fmOpenWrite versuchen. Dann wird der Inhalt komplett gelöscht, bevor neu beschrieben wird.

allerdings ist das im OnChange pro Tastendruck ein Speichervorgang... das ist schlecht für die Festplatte! Ich würde das nur in Zeitintervallen, z.B. über einen Timer, speichern, oder durch den benutzer gesteuert, mit einem button.

das mit dem zeile anhängen finde ich zu kompliziert.

[Jürgen Thomas]

Zitat:

Zitat von DGL-luke

Du solltest es mit fmOpenWrite versuchen. Dann wird der Inhalt komplett gelöscht, bevor neu beschrieben wird.

allerdings ist das im OnChange pro Tastendruck ein Speichervorgang... das ist schlecht für die Festplatte! Ich würde das nur in Zeitintervallen, z.B. über einen Timer, speichern, oder durch den benutzer gesteuert, mit einem button.

das mit dem zeile anhängen finde ich zu kompliziert.

So würde ich es auch machen, aber genau dann wird ständig alles gespeichert, und das will litsa ja wohl vermeiden...

Zum Speichern der gesamten Datei bietet sich doch etwas viel Einfacheres an:

Delphi-Quellcode:

sDateiname := ...
cText.Lines.SaveToFile(sDateiname);

Gruß Jürgen

[inherited]

Zitat:

Zitat von DGL-luke

Du solltest es mit fmOpenWrite versuchen.

Déjà-lu :mrgreen:
Du kannst ja im OnChange-ereignis mit cText.Lines.Count ob Zeilen hinzugekommen sind oder nicht

[litsa]

SaveToFile löscht ja den Inhalt und das will ich net...

Ich glaube das Problem liegt bei der Write-Methode bzw. write soll erst aufgerufen werden wenn die zeile durch ist

[Jürgen Thomas]

Zitat:

Zitat von litsa

SaveToFile löscht ja den Inhalt und das will ich net...

Stimmt, es löscht den bisherigen Inhalt der Datei - aber es speichert den vollständigen aktuellen Inhalt des RTF-Edit. Jürgen