燕
燕子
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.ToolbarButton971Click(Sender: TObject);
var f:textfile;
begin
if opendialog1.execute then
assignfile(f,opendialog1.filename);
reset(f);
richedit1.lines.LoadFromFile(opendialog1.filename);
closefile(f);
end;
richedit中显示'邢哨?崆?(ug 1钝0'.这是为什么
var f:textfile;
begin
if opendialog1.execute then
assignfile(f,opendialog1.filename);
reset(f);
richedit1.lines.LoadFromFile(opendialog1.filename);
closefile(f);
end;
richedit中显示'邢哨?崆?(ug 1钝0'.这是为什么