delphi中怎样在momo中导入多个文件？

来源：百度知道 编辑：UC知道 时间：2024/06/03 21:12:37
假如我机子上有,a.txt, b.txt,c.txt三个文件，我点一下button，这三个文件能同时导入到memo中(或导入到listbox也行)，要怎么实现，我在openddialog中可以选多个件，但只能导入一个，
要同时导入多个文件，要什么样的参数，
高手请指教 ？
Memo1.text:=Memo1.text + tmpMemo.text; 这句有没有错，运行这句时有错。
我打开选择多个文件点确定后，跳出一个对话框"control''has to parent window."

我改一下一楼的代码：
var
i，j: integer;
tmpMemo: TMemo;
begin
tmpMemo := TMemo.Create(nil);
if opendialog.execute then
begin
for i := 0 to opendialog.files.count - 1 do
begin
tmpMemo.Lines.LoadFromFile(opendialog.Files.Strings[i]);
for j:=0 to tmpmemo.lines.count-1 do
begin
memo1.lines.add(tmpmemo.lines.strings[j]);
end;
end;
end;
tmpMemo.free;
end;

var
i: integer;
tmpMemo: TMemo;
begin
tmpMemo := TMemo.Create(nil);
if opendialog.execute then
begin
for i := 0 to opendialog.files.count - 1 do
begin
tmpMemo.Lines.LoadFromFile(opendialog.Files.Strings[i]);
Memo1.text := Memo1.text + tmpMemo1.text;
end;
end;
tmpMemo.free;
end;
//memo1就是用于显示的memo

嗯，也可以将tmpMemo: TMemo;改成strlst: TStringList;
相应的地方改成
strlst := TStringList.Create;
其它地方将tmpMemo改成strlst就可以了

楼上二位，根本