关于在“提示对话框”中显示查询内容的问题？？？(50分)

我想在“提示对话框”中显示查询的内容，怎么也没弄出来，请教大家了！！！
程序如下：
var
s_llzh,mjbh,yx,bx,cx: string;
query: TADOQuery;
y,b,c:real;
begin
mjbh:=trim(MCODE.Text);
kc.Close;
kc.SQL .Clear ;
kc.SQL.Text := 'select * from kcqkb where moldcode ="' + mjbh + '"' ;
kc.open;
y:=kc.FieldByName('yuansum').value;
b:=kc.FieldByName('bansum').value;
c:=kc.FieldByName('chengsum').value;
yx:=floattostr;
bx:=floattostr(b);
cx:=floattostr(c);
if (y<strtofloat(trim(ysum.Text ))) or (b<strtofloat(trim(bsum.Text )))or (c<strtofloat(trim(csum.Text ))) then
begin
application.MessageBox('库存中此种模具数量不能满足此次出库请求,原料数量为:+yx+cx+bx+','模具库房管理系统', mb_iconinformation + mb_defbutton1);
exit;
end;
如上所示application.MessageBox中没有显示我想要的yx,bx,cx

“'”写错地方啦! 改一下就行了。
application.MessageBox('库存中此种模具数量不能满足此次出库请求,原料数量为:'+floattostr (yx + cx + bx),'模具库房管理系统', mb_iconinformation + mb_defbutton1);

SORRY,刚才没看清楚题目！这样没问题了！

'+yx+cx+bx+', 改一下 ' + yx + cx + bx,
其实楼主要显示结果，3个数据应该分开来显示，如果要显示总数，也应该相加后再用 floattostr 吧。

suger答错了，没有弄清楚MessageBox参数格式
应该是：
application.MessageBox('库存中此种模具数量不能满足此次出库请求,原料数量为:'+yx+cx+bx, '模具库房管理系统', mb_iconinformation + mb_defbutton1);

'模具库房管理系统'是对话框标题，不是显示框中内容
另外，yx cx bx中间最好有一些分隔符号，否则都连成一片没法看
例如：'['+yx+']'
或者用#13换行： yx + #13 + cx

照楼上修改后还是有报警阿
Error] U_bmlldgl.pas(222): Expression expected but ',' found
[Error] U_bmlldgl.pas(222): Incompatible types: 'String' and 'PAnsiChar'
[Error] U_bmlldgl.pas(222): Incompatible types: 'Integer' and 'PAnsiChar'

application.MessageBox(PChar('库存中此种模具数量不能满足此次出库请求,原料数量为:'+yx+cx+bx), PChar('模具库房管理系统'), mb_iconinformation + mb_defbutton1);

第一条错误估计是楼主没有改好，
其它两条加个PChar就可以了，是类型不匹配。

showmessage就可以啊.

疏忽了，如果使用了+号来连接显示串，
则隐性转化为string，
是需要pchar强制转换，
这里标题没连接操作，不需要pchar,
修改如下：
application.MessageBox( Pchar('库存中此种模具数量不能满足此次出库请求,原料数量为:'+yx+cx+bx), '模具库房管理系统', mb_iconinformation + mb_defbutton1);

在大家的指点下终于弄好了如下：
application.MessageBox(pchar('库存中此种模具数量不能满足此次出库请求'#13'此种模具原料数量为:'+yx+'个'+ #13'此种模具半成品数量为：'+bx+'个'+ #13'此种模具成品数量为:'+cx+'个' ),'模具库房管理系统', mb_iconinformation + mb_defbutton1);