RichEdit und Delphi XE

[dataspider]

Zitat von FrankJ28:

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

Ist schon klar. Aber wenn XE nun tatsächlich anders tickt, dann musst du halt Plaintext vorher setzen.

Frank

[Edit]
Aus dem Source von TRichEdit erkennst du, dass PlainText deinen Text nicht verändert.
SetPlainText setzt nur das Prop PlainText von TRichEditStrings (class(TStrings)).
Nur beim Laden und Speichern vom Text greift es.

Ich sehe also keinen Grund, es nicht zu benutzen (natürlich mit try ... finally...).
[/EDIT]

[FrankJ28]

Hallo Frank,
Plaintext bewirkt bei dem CodeSchnipsel nichts. Weder vor Befüllen ein/aus, noch nach Befüllen ein/aus. Schade, wäre ja auch zu einfach
Ciao
Frank

[dataspider]

Zitat von FrankJ28:

Plaintext bewirkt bei dem CodeSchnipsel nichts. Weder vor Befüllen ein/aus, noch nach Befüllen ein/aus. Schade, wäre ja auch zu einfach

Ich vermute, das Problem liegt woanders. Bei Bummi funktioniert es ja wie erwartet.

Wenn du ein kleines Beispielprogramm machst, könnte man ja testen, ob dass Verhalten je nach IDE oder OS unterschiedlich ist.

Frank

[FrankJ28]

Hallo Frank,
mehr sinnvollen Codeschnipsel gibt es nicht. Wie bereits vermutet wird die Grundbetankung des RichEdits via .text aus dem Datenbankfeld offensichtlich anders behandelt als früher. Via Zwischenablage oder deine Idee mit dem Stream klappt es wie erwartet. Die derzeitige (funktionierende) Lösung:

Delphi-Quellcode:

         AStream := TMemoryStream.Create;
          try
           TxtDataSet1Memo.SaveToStream(AStream);
           AStream.Position:=0;
           RichEdit1.Lines.LoadFromStream(AStream);
          finally
           AStream.Free;
          end;
//          RichEdit1.Text:=TxtDataSet1.FieldByName('Memo').AsString;
          MaDataSet1Body.AsString:=RichEdit1.Lines.Text;

Mit diesem Workaround kann ich erst einmal leben. Wissen warum das jetzt anders ist, würde ich aber schon gerne.
Systemeckdaten:
Delphi XE, Servicepack 1
Windows 7 (64)

Ciao und danke
Frank