RichEdit显示成这样？

Question

{\rtf1\ansi\ansicpg936\uc2\deff0\stshfdbch11\stshfloch0\stshfhich0\stshfbi0\deflang1033\deflangfe2052{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f1\fswiss\fcharset0\fprq2
\hich\af1\dbch\af11\loch\f1 nes with all this cash}{\lang1033\langfe2052\loch\af1\\langfenp2052\insrsid7603029\charrsid7603029 \hich\af1\dbch\af13\loch\f1 :}{\f1\insrsid7603029\charrsid7603029 
\hich\af1\dbch\af11\loch\f1  }{\f1\insrsid9795335\charrsid7603029 \hich\af1\dbch\af11\loch\f1 No}{\lang1033\langfe2052\loch\af1\hich\af1\dbch\af13\langfenp2052\insrsid2169313\charrsid7603029 \hich\af1\dbch\af13\loch\
\lang1033\langfe2052\loch\af1\hich\af1\dbch\af13\af1\dbch\langfe2052\loch\af1\hich\af1\dbch\af13\langfenp2052\insrsid7603029\charrsid7603029 \hich\af1\dbch\af13\loch\f1 :}{
\lang1033\langfe2052\loch\af1\hich\af1\dbch\af13\langfenp2052\insrsid9795335\charrsid7603029 \hich\af1\dbch\af13\loch\f1  Yea, indeed, yeah, we could }{\b\lang1033\langfe2052\loch\af1\hich\af1\dbch\af13\langfenp2052\insrsid9795335\charrsid7603029 
\hich\af1\dbch\af13\loch\f1 split}{\lang1033\langfe2052\loch\af1\hich\af1\dbch\af13\langfenp2052\insrsid7103708\charrsid7603029 \hich\af1\dbch\af13\loch\f1  it. Thank you very much indeed. }{
\lang1033\langfe2052\loch\af1\hich\af1\dbch\af13\langfenp2052\insrsid9795335\charrsid7603029 
\par }}

Answer 1

RichEdit.PlainText   :=   true; 

Answer 2

//delphi2009中：
procedure TFrmPlayLittle.SetRedtTextEx(AREdt: TRichEdit; AText: String);
begin
  AREdt.Clear;
  AREdt.Lines.LoadFromFile(TSystemFileManager.GetApplicationPath + '\resource\'
    + AREdt.Name + '.rtf');
  AREdt.Text := Trim(AText);
  AREdt.SelStart := 1;
  AREdt.SelLength;
  AREdt.Refresh;
end;

Answer 3

RichEdit实际内容是什么,从那里得来的

Answer 4

解决了，呵呵。
//AREdt.plainText 必须为false.
procedure TFrmPlayLittle.SetRedtText(AREdt: TRzRichEdit; AText: String);
var
 sl : TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Text := AText;
    sl.SaveToFile(TSystemFileManager.GetApplicationPath + '\resource\1.rtf');
    AREdt.Clear;
    AREdt.Lines.LoadFromFile(TSystemFileManager.GetApplicationPath + '\resource\1.rtf');
    AREdt.SelStart := 1;
    AREdt.SelLength;
    AREdt.Refresh;
  finally
    sl.Free;
  end;
end;