试下以下代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
if opendialog1.filename<>'' then
memo1.Lines.LoadFromFile(opendialog1.filename);
end;
我试过了,对于中文、英文、各种符号的TXT有效,日文我就不知道了。应该是一样的吧!
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
if opendialog1.filename<>'' then
memo1.Lines.LoadFromFile(opendialog1.filename);
end;
我试过了,对于中文、英文、各种符号的TXT有效,日文我就不知道了。应该是一样的吧!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货