RichEdit und Delphi XE

[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

[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