DBGrid中显示数据小数点的对齐 用DBGrid显示实型数据时,数值的有效位数不一样,小数位数也不一样,如果能够实现小数点对齐显示,如下所示: 123.23 2345.235432434.1等等。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在TDATASET的FIELDS中设定,DisplayFormat为0.000 把那个字段的DisplayFormat属性设为 #,##0.00 >>>>>>>>>>>>>>>簡單啊!!!條件是你必需要固定幾位小數,將字段設為右對齊. 假設為3位, 在Field.OnGetText事件中寫代碼, procedure TForm1.Query1AmountGetText(Sender: TField; var Text: String; DisplayText: Boolean);var value, prefix, suffix: string;begin value := formatfloat('0.000', Sender.AsCurrency); prefix := leftstr(value, pos('.', value) - 1); suffix := midstr(value, pos('.', value) + 1, length(value)); suffix := AnsiReplaceStr(suffix, '0', ' '); {±N0´À´«¦¨ªÅ®æ} value := prefix + '.' + suffix;end; JonnySun() 的方法完全可行啊。 不是吧。我在stringgrid中加入了JonnySun() 的代码,好像一点效果都没有,不知道能不能把思路讲一下啊。 怎样在程序中动态获取cxGrid(v6.36)的dataSource 属性? chart应用,初学都,请懂的进来帮忙解决下,先谢谢了!!!!急!!!50分!!! ApdTapiDevice做自动应答时,能否可以用TTS读出来给猫呢?怎么样实现?50分!在线等! 请问,如何取得并口地址 如何获得硬盘序号,主板号 很急!在线等,请大家帮忙,谢谢! 在Delphi5中怎么实现串口通讯 在线等待!数据库控件在数据刷新时闪烁的问题,如何解决? 向各位大虾请教 我发现一个奇怪的问题,请帮忙。 【方分】耶!武汉又下雪喽,开心…… 新手提问:今天刚买了张delphi7.0 请问应如何开始学它?
>>>>>>>>>>>>>>>
簡單啊!!!條件是你必需要固定幾位小數,將字段設為右對齊.
假設為3位, 在Field.OnGetText事件中寫代碼,
procedure TForm1.Query1AmountGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
var
value, prefix, suffix: string;
begin
value := formatfloat('0.000', Sender.AsCurrency);
prefix := leftstr(value, pos('.', value) - 1);
suffix := midstr(value, pos('.', value) + 1, length(value));
suffix := AnsiReplaceStr(suffix, '0', ' '); {±N0´À´«¦¨ªÅ®æ}
value := prefix + '.' + suffix;
end;
不知道能不能把思路讲一下啊。