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

推荐分享