着急要,不然我自己写了

解决方案 »

  1.   

    纯文本文件可以,做字符串替换操作。
    例如:回车换行用<br>,再加上html的头信息。
    rtf比较难办,扩展标相应的资料不好招,也不全
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      dd,ee:olevariant;
    begin
      dd:=createoleobjec('word.application');
      ee:=dd.documents.open('test.rtf');
      ee.saveas('test.htm',8);
      dd.quit;
    end;
      

  3.   

    使用 outer2000(天外流星) 的方法
      

  4.   

    使用 outer2000(天外流星) 的方法