Devexpress DBGrid在D2009中网格脚金额默认求和乱码问题

最新推荐文章于 2025-08-07 09:25:12 发布

原创最新推荐文章于 2025-08-07 09:25:12 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#网格 #c

Delphi 函数专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一种货币显示格式函数的实现方式，该函数能够根据不同需求调整货币数值的展示格式，包括小数位数及货币符号的位置等。

修改cxDataUtils文件,DefaultCurrencyDisplayFormat函数的返回值string->AnsiString

function DefaultCurrencyDisplayFormat: AnsiString;
var
  ACurrStr: AnsiString;
  I: Integer;
  C: Char;
begin
  if CurrencyDecimals > 0 then
  begin
    SetLength(Result, CurrencyDecimals);
    FillChar(Result[1], Length(Result), '0');
  end
  else
    Result := '';
  Result := ',0.' + Result;
  ACurrStr := '';
  for I := 1 to Length(CurrencyString) do
  begin
    C := CurrencyString[I];
    if dxCharInSet(C, [',', '.']) then
      ACurrStr := ACurrStr + '''' + C + ''''
    else
      ACurrStr := ACurrStr + C;
  end;
  if Length(ACurrStr) > 0 then
    case CurrencyFormat of
      0: Result := ACurrStr + Result; { '$1' }
      1: Result := Result + ACurrStr; { '1$' }
      2: Result := ACurrStr + ' ' + Result; { '$ 1' }
      3: Result := Result + ' ' + ACurrStr; { '1 $' }
    end;
end;