請問各位: procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin RichEdit1.Lines.LoadFromFile(opendialog1.FileName); RichEdit1.PlainText:=True; end; end; 當我執行程式後。第一次按buuton 抓取一個rtf檔後，RichEdit1顯示的資料很正常，但接著我再按一次button再抓取一個rtf檔，RichEdit1顯示的資料卻是一些格式的資料如下: {\rtf1\ansi\ansicpg950\deff0\deftab720{\fonttbl{\f0\fnil\fcharset0 Roman;}{\f1\fnil\fcharset0 Arial;}}{\colortbl;\red0\gree ' ' 請問這該如何解決呢??

您好﹗

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    begin 
      RichEdit1.Lines.LoadFromFile(opendialog1.FileName);
      RichEdit1.PlainText:=False;
    end;
end;

將PlainText屬性值設為False才是以RTF格式呈現﹐True是以一般文字格式呈現 ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

因為default RichEdit1.PlainText的值是false 你設成 true第二第當然會有問題呀 RichEdit1.PlainText:=True; <--這一行不要 就好了... 不然就是 RichEdit1.PlainText:=False; RichEdit1.Lines.LoadFromFile(opendialog1.FileName); 發表人 - jimmy_wei 於 2005/03/23 14:49:27