一個有關pchar()問題(很簡單)

Question

程序只是想調用一個警告框,如下:
--- if messagebox(form2.Handle,pchar('確定將" '+trim(edit1.Text)+' ('+edit2.Text+')'+' "設置可用?'),'確定',mb_okcancel+32)=1 then ......
但程序在執行時總是提示: [Warning]:Unsafe type 'Pchar';  
請問應如何解決該警告? 請還是使用pchar(),不要換其它方法,TKS!!

Answer 1

unsafe: it's only warning msg....don't care...

Answer 2

to beyondtkl
但我還是希望能將該warning問題解決

Answer 3

那你把pchar（）中的东西用一个string：str变量来存储，然后pchar（str）看看，^_^

Answer 4

再Project->Options中的Compiler Message页面中，将Unsafe Type前的勾去掉即可。
估计你是用旧版本的工程，再Delphi7下编译，如果是建立新工程的话，该警告默认是关闭的。

Answer 5

我这里没Warning
如果你真要钻，
那么你可以去掉Projects的showwarning选项上的勾，呵呵，自己也可以挑着去勾

Answer 6

用MessageDlg就可以不用Pchar了。

Answer 7

MessageDlg('確定將" '+trim(edit1.Text)+' ('+edit2.Text+')'+' "設置可用?',mtConfirmation,mbOKCancel,0)