RTF to plain text (without formats)

[GuenterS]

Hallo,

ich habe in einem Datenbankfeld den Inhalt eines RichText Feldes mit all den Formatierungsanweisungen. Gibt es eine einfache Möglichkeit diese komplett zu entfernen und damit nur den unformatierten Text zu bekommen?

[mkinzler]

In TRichEdit gibt es dafür die Eigenschaft .PlainText;

[GuenterS]

Hm, das habe ich schon versucht, bin aber schon daran gescheitert den Text überhaupt in die TRichEdit Komponente zu bekommen.

Ich verwende übrigens Delphi5 Enterprise ... die Turbo Delphi Professional Version habe ich nur privat.

Ich habs so probiert:

Delphi-Quellcode:

var
  lText, lText2: string;
begin
   ...
   lText := GetText(); //Hier ist der RTF Formatierte Text drinnen
   ...

   with TRichEdit.Create(nil) do
   try
      Parent := Self;
      Lines.Text := lText; //<--- Das will er so nicht
      PlainText := true;
      lText2 := Lines.Text;
   finally
      Free;
   end;
end;

[mkinzler]

-was meinst du mit will er nicht?
TDBRichEdit ?

[GuenterS]

Nein ich meinte schon TRichEdit.

Es kommt zur Laufzeit eine Meldung, dass man so keine lines hinzufügen kann. Kompilierbar ist es aber.

[mkinzler]

Hast du mal die db-aware Variante getestet?

[Poelser]

Diese Funktion mal probieren:

Delphi-Quellcode:

function RTF2PlainText(s: Integer): string;
var 
  RichEdit: TRichEdit;
begin
  RichEdit := TRichEdit.CreateParented(HWND(-3));
  try
    with RichEdit do
    begin
      SelectAll;
      SelText := s;
      Result := Text;
    end;
  finally
    RichEdit.Free;
  end;
end;

[GuenterS]

@MKinzler:

Ich bin mir nicht ganz sicher, man zum Entfernen der Rich Text Formatierungen jetzt eine Datenbank dazumachen muss... bzw. sehe ich jetzt den Sinn dahinter nicht, was mir die Datenbankgebunden Version der RichText Komponente helfen soll.



@Poelser:
Deine Funktion hat leider nur den Nachteil, dass im Ergebnis immer noch die RTF Formatierung enthalten ist.

[mkinzler]

Zitat von GuenterS:

@MKKinzler:

Ich bin mir nicht ganz sicher, man zum Entfernen der Rich Text Formatierungen jetzt eine Datenbank dazumachen muss... bzw. sehe ich jetzt den Sinn dahinter nicht, was mir die Datenbankgebunden Version der RichText Komponente helfen soll.

Zitat:

Ich habe in einem Datenbankfeld...

[Poelser]

Zitat von GuenterS:

@Poelser:
Deine Funktion hat leider nur den Nachteil, dass im Ergebnis immer noch die RTF Formatierung enthalten ist.

War ja auch aus dem Bauch heraus. Probier mal vor Result := noch ein PlainText := True.