在StringGrid1KeyPress里,当KEY=#13时,用format来指定这一行的字符串格式!
在Timer1里,统计某一列的数字总和,可按回车后,为什么显示出来的数字总和为零呀!
这是为什么呀?
在Timer1里,统计某一列的数字总和,可按回车后,为什么显示出来的数字总和为零呀!
这是为什么呀?
解决方案 »
- WINDOWS或DELPHI自己有下载函数吗?
- 如何用TChart在时钟控制下画动态曲线,郁闷啊,高手救我!!
- 如何获得硬件的唯一编码?如CPU、主版、硬盘等硬件的机器唯一编码!
- 三方应用程序之间数据的传输能否通过消息传输,如何来完成?有最简单例子最好!
- 请教一个关于数据库中某表中的数据读取,还望指教!
- 我在程序中要调用几个网页,如何将这些网页打包起来,不让别人看到呢
- 生产者与消费者的问题~~~
- 急救!在线等答案
- 手机端显示数据库的表格一般用什么控件?Tstringgrid?
- Delphi 团队开发的架构设计,包括人员安排,开发分工的问题,请讨论
- 我是学VC的,现在请学Delphi的朋友帮忙.
- 有知道考研手续的吗,烦请告知小弟一声?
在StringGrid1KeyPress里:…………
if stringgrid1.col<stringgrid1.ColCount-1 then
begin
stringgrid1.Cells[6,i]:=formatfloat('0.00',strtofloat(stringgrid1.Cells[6,i]));
stringgrid1.Cells[5,i]:=formatfloat('0.00',strtofloat(stringgrid1.Cells[5,i]));
stringgrid1.Cells[4,i]:=formatfloat('0.00',strtofloat(stringgrid1.Cells[4,i]));
end;
………………
在在Timer1里:………………
sumje:=0;
sumsl:=0;
for k:=1 to 100 do
begin
sumsl:=sumsl+strtointdef(trim(stringgrid1.Cells[5,k]),0);
sumje:=sumje+strtointdef(trim(stringgrid1.Cells[6,k]),0);
if trim(stringgrid1.Cells[6,k])='' then break;
end;
stringgrid2.Cells[2,0]:=floattostr(sumsl);
stringgrid2.Cells[4,0]:=floattostr(sumje);
为什么按回车后,在stringgrid2.Cells[2,0]和stringgrid2.Cells[4,0]里的数字为零呀!各位大虾帮帮忙呀!
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————