本文整理自网络,侵删。
今天在做一个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; endend;下面是对一个字符串进行补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; endend;
――――――――――――――――
原文链接:https://blog.csdn.net/lovescjinbao/article/details/18055437
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>