opendialog只是一个界面,真正的文件操作的另外写 var txtfile:TextFile var s:string; begin assignfile(txtfile,opendialog1.filename); reset(txtfile);// rewrite(file); readln(txtfile,s) end;
memo.lines.loadfromfile(opendialog1.filename);
var s:string; s:=opendialog1.filename; shellexecute(...); //忘了参数
var txtfile:TextFile
var s:string;
begin
assignfile(txtfile,opendialog1.filename);
reset(txtfile);// rewrite(file);
readln(txtfile,s)
end;
s:=opendialog1.filename;
shellexecute(...); //忘了参数