Gehe zu deutscher Webseite

ViaThinkSoft CodeLib

Dieser Artikel befindet sich in:
CodeLibProgrammierhilfenDelphi

uses
  ComCtrls;

function RichTextToPlainText(richText: string): string;
var
  RichEdit1: TRichEdit;
begin
  if Copy(richText, 1, 5) <> '{\rtf' then
  begin
    result := richText;
    exit;
  end;
  RichEdit1 := TRichEdit.Create(Application.MainForm);
  try
    // It doesn't work if Visible=true or Parent=nil ...
    RichEdit1.Width := 0;
    RichEdit1.Height := 0;
    RichEdit1.Parent := Application.MainForm;
    RichEdit1.Text := richText;
    RichEdit1.PlainText := true;
    result := Trim(RichEdit1.Text);
  finally
    FreeAndNil(RichEdit1);
  end;
end;
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management