Delphi中如何给一个字符串从左边进行补0
2014-01-09 23:06
288 查看
今天在做一个Delphi项目的时候,要求要给银行的某些字段进行按位数进行补0,没有找到Delphi提供的专门函数
于是自己就简单的实现了一个,现在拿出来分享一下,当然了很简单:
参数1:要进行补0操作的原始字符串。
参数2:要将该字符串补0后的位数。 //注:该参数是补0后的字符串长度
function TMyThread.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 TMyThread.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;
于是自己就简单的实现了一个,现在拿出来分享一下,当然了很简单:
参数1:要进行补0操作的原始字符串。
参数2:要将该字符串补0后的位数。 //注:该参数是补0后的字符串长度
function TMyThread.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 TMyThread.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;
相关文章推荐
- 如何将一个字符串映射为一个Delphi控件属性名
- 如何用Python来进行查询和替换一个文本字符串?
- Delphi程序员如何找到高薪的工作?(赚不到钱,原因只有一个,就是他们没有被公司录取。Delphi必须要独自进行深入研究,才能精通,同时也不能自由性太强)
- Delphi中如何进行HTTP编程,比如:发送一个XML文件给服务器?
- 一个字符串既含有字母又含有数字且字母和数字随意排列如何取出其中所有的数字并进行排序
- 如何将一个字符串进行反过来输出
- 如何用Python来进行查询和替换一个文本字符串
- 如何判断一个变量是否是数字而不是字符串
- delphi 怎么将一个文件流转换成字符串(String到流,String到文件,相互转化)
- java中如何知道一个字符串中有多少个字,把每个字打印出来,举例
- Python:如何在字符串制定位置加入一个逗号?
- 设计一个算法,给一个字符串进行二进制编码,使得编码后的字符串长度最短
- 假如正则从来没来过,我们该如何去匹配一个字符串?
- 在PB中如何使用一个字符串给一个字符串数组赋值
- 对一个简单的字符串模板进行的测试
- 如何通过JQ,Ajax来实现返回到上一个页面并进行刷新
- 如何使用TCP/IP与服务器进行通信-一个简单的聊天程序
- Struts2 如何实现同一个action不同方法进行传值
- Visual C++ 如何:在各种字符串类型之间进行转换
- 请问我如何在一个webBrowser控件中加载一个 html格式的字符串 - _NET技术 - C#