messagebox中的问题,求教

dn:=query1.fieldbyname('name').Asstring;  
  application.MessageBox('真的要删除?????该条记录吗','管理',mb_yesno);  
  我想把查出来的记录名,加到messagebox中去,怎么办? 问题点数：20、回复次数：6Top

1 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2001-12-13 12:00:07 得分 10

application.MessageBox(pchar('真的要删除'+dn+'吗'),'管理',mb_yesno);Top

2 楼ch81（missile）回复于 2001-12-13 12:00:42 得分 10

var   P:PChar;  
  var   dn:String;  
  begin  
  dn:=query1.fieldbyname('name').Asstring;  
  dn:='真的要删除'+dn+真的要删除';  
  GetMem(P,Length(dn)+1);  
  StrpCopy(P,dn);  
  application.MessageBox(P,'管理',mb_yesno);  
   
  Top

3 楼zzllabc（抱朴子--清心释累，绝率忘情）回复于 2001-12-13 12:03:21 得分 0

晚了一步,两位的回答已经没有必要在加什么了.  
  application.MessageBox(pchar('真的要删除'+dn+'吗'),'管理',mb_yesno);Top

4 楼liang_z（千山一刀之忍者神龟）回复于 2001-12-13 12:38:35 得分 0

用GetMem  
  则要FreeMem  
  还是用第一个方法好一点Top

5 楼xiaoxiao197821（你的笑对我很重要）回复于 2001-12-13 13:01:34 得分 0

同意Top

6 楼w8u（晌马）回复于 2001-12-13 13:26:48 得分 0

用Format;  
   
  application.MessageBox(  
            pchar(format('真的要删除%s吗',[dn])   ),'管理',mb_yesno  
            );   Top

相关问题

• 管理
• application
• yesno
• messagebox
• dn
• pchar
• mb
• 要删除

• 帖主：xjianan
• TechnoFantasy
• ch81

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载