读出是一堆乱麻,但RichEdit支持RTF格式的,是不是要另外加控件?
//RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName)
//RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName)
解决方案 »
- 问一个 古老的delphi 加载动态库的问题?
- 心情郁闷,散分
- 怎样调试COM+程序,我参照了几篇文章的做法都不行?
- 请问在如何获得一个表的列数以及一个数据库中表的个数。
- 请问"olevariant"在type library里选择什么参数?
- 1.如何锁定计算机....2......十万火急!!!!!!!!!
- 请jishiping(JSP 季世平) 前来领分!
- 谁能帮我设计一个10进制转换到60进制的程序呀
- 各位高手,遇到这样一个问题,我的程序中有两个form,
- 请教Interbase方面的问题
- 请教: 能不能不登陆windows200就启动一个gui程序运行?
- 请问xp风格的菜单怎么做?哪里有相关资料下载
AControl: TCustomMemo): Boolean;
var
NewDoc: Variant;
V: OleVariant;
begin
try
try
V := CreateOleObject('Word.Application');//建立自动化对象
NewDoc :=V.Documents.Open(AFileName); //打开指定文件
NewDoc.Content.Copy; //拷贝到剪贴板
AControl.Lines.Clear;
AControl.PasteFromClipboard; //粘贴
NewDoc.Close; //关闭Word文件
finally
V.Quit; //释放自动化对象
end;
Result := True;
except
Result := False;
end;
end;