RichEdit und Delphi XE

[FrankJ28]

Hallo,
bei der Migration eines Projektes von D2007 auf XE stolpere ich über die andere/falsche Umsetzung des TRichEdit. Bislang kam man über

Delphi-Quellcode:

RichEdit1.Lines.Text

immer an den reinen Text des RichEdit-Controls, mit XE wird mir der RichText-Code ausgeliefert. Hat jemand einen Workaround für mich, wie komme ich jetzt an den PlainText heran?
Danke und ciao
Frank

[s.h.a.r.k]

Hab noch nie mit TRichEdit gemacht. Aber vielleicht hilft ja

Delphi-Quellcode:

RichEdit1.Text

!?

[FrankJ28]

Hallo Armin,
nö, leider nicht. Darüber sollte der Urcode (RTF) transportiert werden, über die .Lines.Text der reine Textinhalt (Plain). Nicht aber unter XE.
Ciao
Frank

[Bummi]

Ich bekomme mit XE mit beiden Varianten den Plaintext
re.lines.Text
re.Text
:?:

[s.h.a.r.k]

Das hat aber nicht mit irgendwelchen verschiedenen Versionen zu tun? Ich meine mal was gelesen zu haben.

[Lemmy]

Hi,
schon mal mit PlainText true/false probiert?

Grüße

[s.h.a.r.k]

Damit wird wohl die Formatierung dauerhaft entfernt!? Zumindest wäre ein temporäres Setzen ja mal mehr als planlos...

[FrankJ28]

Hallo ihr Beiden,
tatsächlich ist offensichtlich eine andere Codestelle bei mir dafür verantwortlich.

Delphi-Quellcode:

          RichEdit1.Text:=TxtDataSet1.FieldByName('Memo').AsString;
          MaDataSet1Body.AsString:=RichEdit1.Lines.Text;

Das RichEdit wird aus einer Tabelle zunächst befüllt, das über .Text=.AsString. Offensichtlich tickt das jetzt etwas anders ans unter D2007.

Noch Ideen?
Ciao
Frank

[dataspider]

Hi,

also unter Delphi 2007 liefert Lines.Text bei mir den PlainText.
XE Habe ich nicht.
Aber das Setzen vom PlainText ist IMHO schon ein sauberer Weg (siehe Delphi Hilfe).

Ich habe es testweise mal über einen Stream probiert.
SaveToStream z.B. Nutzt TConverter und setzt das Format auf SF_TEXT, wenn PlainText True ist.

Hier das Beispiel über Stream:

Delphi-Quellcode:

procedure TForm11.Button1Click(Sender: TObject);
Var
  AStream: TMemoryStream;
  APlainText: Boolean;
begin
  AStream := TMemoryStream.Create;
  try
    APlainText := RichEdit1.PlainText;
    RichEdit1.PlainText := False;
    try
      RichEdit1.Lines.SaveToStream(AStream);
      AStream.Position := 0;
      Memo1.Lines.LoadFromStream(AStream);
    finally
      if APlainText <> RichEdit1.PlainText then
        RichEdit1.PlainText := APlainText;
    end;
  finally
    AStream.Free;
  end;
end;

Es sollte aber auch genauso über den einfachen Weg mit Lines.Text funktionieren.

Frank

[FrankJ28]

Hallo Frank,
die .Text-Variante funktionierte auch mit D2007 wie ich schrieb. Ab XE tickt da aber offensichtlich etwas anders.
Ciao
Frank