追加内容:
  if opendialog1.Execute then
    begin
      richedit1.Lines.Append(opendialog1.FileName);
    end;DOC文件具有文件头。
RICHEDIT不能打开DOC文件。
但可以打开RTF文件或者TXT文件。不敢称大哥,
希望能帮到你。
我不是为了分数而来。

解决方案 »

  1.   

    var
      strTemp : Tstrings;
    begin
      if opendialog1.Execute then
        begin
          strTemp := TstringList.Create;
          strTemp.LoadFromFile(opendialog1.FileName);
          richedit1.Lines.Append(strTemp.Text);
          strTemp.Free;
        end;
    end;道理是利用TSTRINGLIST暂存文本内容。
      

  2.   

    谢谢你的帮助,我说话是算数的.希望能和你交个朋友!
    E-mail:[email protected]
    祝你工作顺利!
      

  3.   

    谢谢,
    今天安排了新项目,
    心情好,所以才回帖,
    平时很少回帖的。
    我的Email快不能用了(我没交钱)。
    懒得去申请其它Email。
    祝你事事顺利!