Delphi中在一个字符串中添加千位分隔符

D-Nolan

于 2023-04-12 21:47:29 发布

阅读量305

点赞数

分类专栏： delphi常用函数文章标签：字符串

本文链接：https://blog.csdn.net/gust2013/article/details/130117594

版权

delphi常用函数专栏收录该内容

38 篇文章 0 订阅

订阅专栏

应用场景

有时候需要在一个数字中间添加千位分隔符，方便查看。

函数代码

function AddThousandSeparator(const S: string; const C: Char): string;
var
  I: Integer; // loops through separator position
begin
  Result := S;
  I := Length(S) - 2;
  while I > 1 do
  begin
    Insert(C, Result, I);
    I := I - 3;
  end;
end;
//老版本中
function AddDefThousandSeparator(const S: string): string;
begin
  Result := AddThousandSeparator(S, ThousandSeparator);
end;
//新版本中
function AddDefThousandSeparatorXE(const S: string): string;
begin
  Result := AddThousandSeparator(S, FormatSettings.ThousandSeparator);
end;