类型:转载 责任编辑:asp 日期:2007/03/01
procedure tform1.formclose(sender: tobject; var action: tcloseaction);
begin
if messagebox(0,pchar(确实要退出系统),退出系统,mb_iconquestion or mb_yesno)=idno then
abort;
end;
[warning] main.pas(252): unsafe type pchar
为什么错
推荐阅读