兩種解決辦法:
(1)//procedure loadfile ==> procedure TForm1.loadfile
type ...OpenDialog1: TOpenDialog;
procedure BitBtn1Click(Sender: TObject);
// (添加代碼) ==>
procedure loadfile;
//OK !~
(2)opendialog1.FileName :=nameoffile; ==> Form1.opendialog1.FileName :=nameoffile
回答完畢,送分!