怎样才能把doc txt htm文件的内容导入到memo中去？(50分)

注意：是导入！

memo.lines.loadfromfile('filename.doc');
只不过格式都丢掉了！

是显示吗？txt直接LoadFromFile就可以啦

1.doc:
来自：jsxjd, 时间：2002-12-3 10:46:00, ID：1480424
---------------------------------------------------------------
读每一段（行）：
以下不会显示 word 窗口的。
procedure TForm1.Button2Click(Sender: TObject);
var
wordapp,doclevariant;
i:integer;
begin
wordapp:=createoleobject('Word.application');
try
do
c:=wordapp.Documents.Open(FileName:='c:/my do
cuments/网络通信.doc');
Memo1.clear;
for i:=1 to do
c.Paragraphs.count do
memo1.lines.add(doc.Paragraphs.item(i).range.text);
memo1.Lines.SaveToFile('d:/d.txt');
finally
wordapp.quit;
end;

2.txt
memo.lines.LoadFromFile()
3.htm
kthy (2002-1-23 11:43:00)
Memo1.Lines.Add((WebBrowser1.Document as IHtmlDocument2).Body.OuterText);

好

procedure TForm1.Button2Click(Sender: TObject);
var
wordapp,doclevariant;
i:integer;
begin
wordapp:=createoleobject('Word.application');
try
do
c:=wordapp.Documents.Open(FileName:='c:/my do
cuments/网络通信.doc');
Memo1.clear;
for i:=1 to do
c.Paragraphs.count do
memo1.lines.add(doc.Paragraphs.item(i).range.text);
memo1.Lines.SaveToFile('d:/d.txt');
finally
wordapp.quit;
end;

编译显示：
[Error] Unit1.pas(57): Undeclared identifier: 'createoleobject'
[Error] Unit1.pas(59): Type not allowed in Variant Dispatch call

uses
comobj;

在uses添加：ComObj
修改为
var
wordapp,doc:Variant;
i:integer;
begin
wordapp:=CreateOleObject('Word.application');
try
do
c:=wordapp.Documents.Open(FileName:=OpenDialog1.FileName);
后运行,显示上边的最后一行“命令失败”
改成
wordapps:=CreateOleObject('Word.Application');
try
if OpenDialog1.Execute then
do
c:=wordapps.Documents.open(OpenDialog1.FileName)
else
Memo1.clear;
for i:=1 to wordapps.Paragraphs.count do
memo1.lines.add(doc.Paragraphs.item(i).range.text);
// memo1.Lines.SaveToFile('d:/d.txt');
finally
wordapps.Quit;
end;

在Paragraphs处失败……

html文件打开方法中的IHtmlDocument2是虾米？能给出完整的吗？

接受答案了.