messagebox问题

Question

用messagebox怎样实现字符串连接,我的语句是messagebox(Handle,'此表中不能存在重复的个人编号 : ' +E.Message,'错误',mb_ok+mb_iconerror);当然,先定义了on E: Exception do

Answer 1

MessageBox(Handle, PChar('此表中不能存在重复的个人编号 : ' + E.Message), PChar('错误'), MB_OK + MB_ICONERROR);

Answer 2

这里需要注意的是在MessageBox中，第二个参数的类型是Pchar类型（API中支持的类型）
其它的字符串连接都一样，你可以通过Pchar函数来转换！