Question

delphi问题.关于MEMO控件

怎么接收通过OPENDIALOG打开的文件中的内容.
做了一个记事本程序.想把OPENDIALOG打开的文件内容通过MEMO控件显示出来
请问如何做.谢谢
if Opendialog1.Execute then
begin
Memo1.Lines.Clear;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

这段代码能实现打开.但不是在MEMO中显示,而是别开了一个窗口来显示的.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.filter:='文本文件(*.txt)|*.txt';
if Opendialog1.Execute then
begin
Memo1.Lines.Clear;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;

Answer 2

OpenDilaog返回的是选择的文件的路径。想读文件内容就得根据不同的文件格式来不同处理了，如果只是文本文件的话，最简单的办法就是用个TStringList类型直接LoadFromFile，然后Memo.Text := StringList.Text

Answer 3

memo1.lines.loadfromfile('c.\1.txt'); //c.\1.txt 是文本文件

Answer 4

var
str:Sting;
HTML1:
IHTMLDocument2;
begin
HTML1:=
WebBrowser1.document
as
IHTMLDocument2;
.......
repeat
sleep(200);
str:=HTML1.body.OuterText;
until
POS('知识掌门人',str)>0;
Memo1.lines.add(......);
......
end;