Delphi中如何给一个字符串从左边进行补0

本文整理自网络，侵删。

 
今天在做一个Delphi项目的时候，要求要给银行的某些字段进行按位数进行补0,没有找到Delphi提供的专门函数

于是自己就简单的实现了一个，现在拿出来分享一下，当然了很简单：

参数1：要进行补0操作的原始字符串。
参数2：要将该字符串补0后的位数。   //注：该参数是补0后的字符串长度
function LeftFillZero(str1:string; count:Integer) :string;
var
  temp : string;
  len, idex :Integer;
 
begin
  len := Length(Trim(str1));
  if (len >= count) then
  begin
    LeftFillZero:= str1;
  end
  else
  begin
    for idex := 0 to count-len-1 do
    begin
     temp := temp + '0';
    end;
    str1 := temp + str1;
    LeftFillZero := str1;
  end
end;
下面是对一个字符串进行补0操作的另一种实现，就是要对该字符串进行补多少个0的操作：
参数1：要进行补0操作的原始字符串。
参数2：要将该字符串补0的个数。   //注：该参数是要补0的个数
function LeftFillZero(str1:string; num:Integer) :string;
var
  temp : string;
  len, idex :Integer;
 
 
begin
  Trim(str1);
  for idex := 0 to num-1 do
  begin
   temp := temp + '0';
  end;
  str1 := temp + str1;
  LeftFillZero := str1;
  end
end;

――――――――――――――――

原文链接：https://blog.csdn.net/lovescjinbao/article/details/18055437
 

相关阅读 >>

如何在Delphi xe中通过ftp下载文件

Delphi xe 安卓开发黑屏的另一种解决办法

Delphi 逐个分解后字符串加载到stringgrid1

Delphi 根据特殊符号字符获取字符串前或后的字符

我的Delphi开发经验谈

Delphi webbrowser控件属性

Delphi根据窗口句柄获取所在程序路径

Delphi之屏幕和窗口的坐标

Delphi ansicontainstext 是否包含子串

Delphi xe10 安卓设备信息

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中如何给一个字符串从左边进行补0