Delphi 控件显示金额（￥0.00）

最新推荐文章于 2023-12-19 22:37:56 发布

Jack_Full

最新推荐文章于 2023-12-19 22:37:56 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/Jackfujie/article/details/13297437

Delphi 专栏收录该内容

2 篇文章

订阅专栏

博客讲述了在Delphi中遇到的问题，即如何在控件中正确显示金额格式（如￥0.00）。作者提到代码动态绑定数据源和创建显示控件时遇到困难，找不到合适的属性设置。为解决此问题，作者提供了一个名为createDBList的函数，该函数接受TClientDataSet和TdxDBGrid参数，旨在简化数据源与显示控件的操作以正确格式化金额。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这个问题让我好纠结，代码里动态绑定数据源动态创建显示，

我想根据空间属性来设置都找不到，更甚之想在代码里找到对应的

代码都找不到几行。

下面我写了函数，只要对数据源和显示空间操作就可以了。

procedure createDBList(cds:TClientDataSet;dxDBTlist: TdxDBGrid);

var
i:integer;
begin
for i:=0 to cds.FieldCount-1 do
begin
if ((cds.Fields[I].DataType=ftBCD) or (cds.Fields[I].DataType = ftFloat)) then
begin
with dxDBTlist.CreateColumn(TdxDBGridCurrencyColumn ) as TdxDBTreeListCurrencyColumn do
begin
Fieldname:= cds.Fields[i].FieldName;
DisplayFormat:='0.00';
end;
end
else
begin
with dxDBTlist.CreateColumn(TdxDBTreeListColumn) as TdxDBTreeListColumn do
begin
Fieldname:= cds.Fields[i].FieldName;
end;
end;
end;

end;