RTF转纯文本

uses RpMemo;

function  RTFToText(sRTF: String): String;
var
  AMemo : TMemoBuf;
begin
  Result := '';
  AMemo := TMemoBuf.Create;
  try
    AMemo.RTFText := sRTF;
    Result := AMemo.Text;
  finally
    AMemo.Free;
  end;
end;

function  RTFFileToText(sRTFFile: String): String;
var
  AMemo : TMemoBuf;
begin
  Result := '';
  AMemo := TMemoBuf.Create;
  try
    AMemo.RTFLoadFromFile(sRTFFile);
    Result := AMemo.Text;
  finally
    AMemo.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage (RTFFileToText('d:\1.rtf'));

  ShowMessage (
    RTFToText(
      '{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fmodern\fprq6\fcharset134 \''cb\''ce\''cc\''e5;}}' +
      '{\colortbl ;\red255\green0\blue0;}' +
      '\viewkind4\uc1\pard\cf1\lang2052\f0\fs20 Hello\par' +
      '}'
    )
  );
end;