begin
opendialog.execute;
memo1.Lines.LoadFromFile(opendialog.filename);
end;
提示opendialog.execute;有错误，请问是哪错了
opendialog.execute;
memo1.Lines.LoadFromFile(opendialog.filename);
end;
提示opendialog.execute;有错误，请问是哪错了
改为：
begin
if opendialog.execute then
memo1.Lines.LoadFromFile(opendialog.filename);
end;
可以吗？
if OpenDialog.Execute = True
then ........
else .............
opendialog.execute;
memo1.Lines.LoadFromFile(opendialog.filename);
end;
>>這會報錯嗎?
你們有沒有測試一下
memo1.Lines.LoadFromFile(opendialog.filename);
這樣寫不規範,但不會報錯
如果用户点吉取消也不会出错吗？
opendialog.execute;抱错。是不是filename要给个确切的文件啊？能不能给个能运行的一段代码？
procedure Tfrmmain.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
edtFileName.Text := OpenDialog1.FileName;
end;可以吗？
你少加2个括号OpenDialog1->Execute();
另外点取消的话有异常报出，证明这么写不规范