Text (Lines) von TRichEdit in einer Liste speichern - Fehler

[Bloodfire]

Hi!

Folgendes Problem:
Ich habe erstens eine visuelle Darstellung verschiedener Anzeigeelemente, ein paar TEdit und ein TRichEdit.

Ich habe zweitens eine Dynamische Liste in der ich die Einträge speichere. (Eine Art Datenbank, wenn man so will, die im Hintergrund läuft und nur der jeweils aktuelle davon wird visuell angezeigt).

Wie speichere ich aber am besten den Inhalt von dem RichEdit?
Das Richedit verwaltet seinen Inhalt ja über Lines (TStrings), oder?

Wenn ich in meiner ListenElement-Klasse eine Variable von TStrings anlege und irgendwas damit machen will (zb. Clear), dann kommt eine Fehlermeldung - kurz: 'Abstrakter Fehler aufgetreten'.

Wird eigentlich jede Formatierung des RichEdits mitgespeichert?

Danke im Voraus!

[Hawkeye219]

Hallo,

TStrings ist eine abstrakte Basisklasse, die nicht instanziiert werden sollte. Nimm einfach eine TStringList.

Gruß Hawkeye

[Bloodfire]

Zitat von Hawkeye219:

Nimm einfach eine [oh]TStringList.

Aber speichert eine TStringlist die Formatierungen mit?
Bzw. muss ich dann beim abspeichern alle Zeilen einzeln rüberkopieren (von RichEdit nach Stringlist)?

Warum braucht ein Richedit eigentlich unbedingt ein Steuerelement?

[Hawkeye219]

Sorry, ich bin leider auch kein TRichEdit-Experte. Hier wird eine mögliche Lösung beschrieben.

Gruß Hawkeye

[Bloodfire]

Ok, danke für den Link!

Aber ich denke, es ist für mich einfacher dem Richedit in meiner Listenklasse ein Steuerelement zuzufügen und es dann invisible machen oder so.

Danke trotzdem!

[Lannes]

Hallo,

man kann auch den RichEdit-Inhalt incl. der Formatierungen in einem String zwischenspeichern (unter Verwendung von TStringStream).

Speichern:

Delphi-Quellcode:

function GetRTFFromRichEdit(aRichEdit: TRichEdit): String;  
var StrS : TStringStream;  
begin  
  StrS := TStringStream.Create('');  
  try  
    aRichEdit.Lines.SaveToStream(StrS);  
    Result := StrS.DataString;  
  finally  
    StrS.Free;  
  end;  
end;

Laden:

Delphi-Quellcode:

procedure SetRTFToRichEdit(sRTF: String;aRichEdit: TRichEdit);  
var StrS : TStringStream;  
begin  
  StrS := TStringStream.Create('');  
  try  
    StrS.WriteString(sRTF);  
    StrS.Position := 0;  
    aRichEdit.Lines.LoadFromStream(StrS);  
  finally  
    StrS.Free;  
  end;  
end;

[Bloodfire]

Funktioniert wunderbar, danke vielmals!!

Jedoch hab ich jetzt noch ein Problem damit: wie speichere ich das ganze extern? (mit Formatierung!)

[Klaus01]

geht das nicht mit

aRichedit.lines.saveToFile('FileName'); ?

Grüße
Klaus

[Bloodfire]

Zitat von Klaus01:

geht das nicht mit

aRichedit.lines.saveToFile('FileName'); ?

Ja schon, aber das wär ziemlich umständlich, weil ich dann meine Liste mit den (vom Richedit gespeicherten formatierten) Inhalten als String jedes mal in mein Richedit laden müsste und dann erst speichern kann.

Ich würde ja gerne meine Liste einfach durchgehen und den formatierten String extern speichern.