RichEdit und Edit in einer Datei speichern

[Thomas F]

Hallo,

wie kann man den Text eines Richedits und eines normalen Edits in ein und derselben Datei speichern , und bei Bedarf wieder laden?
Mit ner Stringlist geht glaube ich nicht, weil dann die ganzen Textformatierungen (Text-Farbe, Schrift)
verloren gehn.Extra wegen einem TEdit ne neue Datei anlegen , wäre auch unsinnig.
Im TEdit steht der Betreff einer Email, im RichEdit steht dann der Text der Email und ich wollte die Email abspeichern.

[mkinzler]

Schau mal nach TextFile, AssignFile, Write/WriteLn ...

[Thomas F]

Ach, ja.....

So könnte es funktionieren.....

Delphi-Quellcode:

procedure TForm6.Button7Click(Sender: TObject);
var f: Textfile;
begin
assignfile(f,'Email');
try append(f);
write(f,edit1.text);
write(f,richedit1.text);
finally
closefile(f);
end;
end;

Aber bleiben die Text-Formatierungen erhalten (Schrift, Farbe......) ?????

[Fussball-Robby]

Zitat von Thomas F:

Aber bleiben die Text-Formatierungen erhalten (Schrift, Farbe......) ?????

Beim RichEdit werden alle Formatierungen mitgespeichert, beim Edit nicht.

[turboPASCAL]

Pappe den Edittext an bzw. in das Richedit zB. als letzte Zeile. Dann kannst du das Richedit über SaveToFile speichern.
Beim Laden des Richedits bzw. nachdem Laden kannst du die Letzte Zeile aus dem RichEd. in dein Edit kopieren und dann
die betr. Zeile im RichEd. löschen.

[Thomas F]

Zitat von turboPASCAL:

Pappe den Edittext an bzw. in das Richedit zB. als letzte Zeile. Dann kannst du das Richedit über SaveToFile speichern.
Beim Laden des Richedits bzw. nachdem Laden kannst du die Letzte Zeile aus dem RichEd. in dein Edit kopieren und dann
die betr. Zeile im RichEd. löschen.

Ja,Danke

Ich probier das mal

[Thomas F]

Ich habe mir etwas überlegt

Ich könnte auch ein zweites Richedit (unsichtbar) nehmen, und mit dem die einzelnen Texte zuordnen,laden und speichern.

Das wäre am einfachsten.

[himitsu]

Zitat von Thomas F:

Code:

...
Write[color=#ff0000][b]Ln[/b][/color](f,edit1.text);
...

wenn schon, dann so, dann hat man 'nen Zeilenumbruch als Trennung zwischen Edit und RichEdit, oder wie willst du beim Laden beides wieder trennen? (ohne ein Trennzeichen, oder irgend 'ne andere Markierung/Längenangabe)


Aber wozu denn ein verstecktes Objekt?

Delphi-Quellcode:

{speichern}
RichEdit1.Lines.BeginUpdate;
RichEdit1.Lines.Insert(0, Edit1.Text);
RichEdit1.Lines.SaveToFile('file.rtf');
//RichEdit1.Lines.Delete(0);  // eventuell die Zeile wieder löschen
RichEdit1.Lines.EndUpdate;


{laden}
RichEdit1.Lines.BeginUpdate;
RichEdit1.Lines.LoadFromFile('file.rtf');
Edit1.Text := RichEdit1.Lines[0];
RichEdit1.Lines.Delete(0);
RichEdit1.Lines.EndUpdate;

[turboPASCAL]

So war's gedacht, danke himitsu. ^^

[Thomas F]

Zitat von himitsu:

Delphi-Quellcode:

{speichern}
RichEdit1.Lines.BeginUpdate;
RichEdit1.Lines.Insert(0, Edit1.Text);
RichEdit1.Lines.SaveToFile('file.rtf');
//RichEdit1.Lines.Delete(0);  // eventuell die Zeile wieder löschen
RichEdit1.Lines.EndUpdate;


{laden}
RichEdit1.Lines.BeginUpdate;
RichEdit1.Lines.LoadFromFile('file.rtf');
Edit1.Text := RichEdit1.Lines[0];
RichEdit1.Lines.Delete(0);
RichEdit1.Lines.EndUpdate;

Ich habs probiert, funktioniert einwandfrei

Danke