Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - TRichEdit.Text mit Formatierung


Aya - Sa 08.03.03 01:34
Titel: TRichEdit.Text mit Formatierung
Hi,

wenn ich z.B. das mache:


Quelltext 
1:
2:
3:
4:
5:
6:
 
var
  s: String;
begin
  s:=RichEdit1.Text;
  RichEdit2.Text:=s;
end;

geht dabei die Formatierung des Textes verloren. Weiß jemand wie ich den Text inclusive Formatierung in einen String bekomme???

Au'revoir,
Aya

PS: Das ist nur ein Beispiel!! Es lässt sich nich einfach lösen indem ich schreibe RichEdit1.Text:=RichEdit2.Text ;)


Delete - Sa 08.03.03 06:22
Du könntest es als RTF-Datei speichern und dann in eine Stringliste oder so laden, dann müßtest du die Formatierungen mit dabei haben. Was besseres fällt mir auf die Schnelle auch nicht ein.


Aya - Sa 08.03.03 06:23
mhh... ja, das ginge schon... aber erst als RTF Speichern... na ja, erstmal andere lösung suchen :)


Aya - Sa 08.03.03 06:30
Hab es jetzt erstmal so gelöst:


Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
var
  S: String;
  SS: TStringStream;
begin
  SS:=TStringStream.Create(s);
  RichEdit.Lines.SaveToStream(SS);
  S:=SS.DataString;
  SS.Free;
  ShowMessage(s);
end;

Wenn jemand was besseres weiß, bitte sagen :)

Au'revoir,
Aya


UGrohne - Sa 08.03.03 11:46
Hatte vor 3 Tagen dasselbe Problem, habs mit einem Memory-Stream gelöst:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
var tempstream:TStream
     text:String;
begin
tempstream:=TMemoryStream.Create;
RichEdit1.Lines.SaveToStream(tempstream);
tempstream.Position:=0;
Size:=tempstream.Size;
SetString(text,nil,Size);
tempstream.Read(PChar(text)^,Size);
end;


Aya - Sa 08.03.03 16:59
Da gefällt mir meine Lösung aber besser ;)


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!