5,388
社区成员
发帖
与我相关
我的任务
分享整数与字符串的转换
有一个整数，想把它变成一个特定格式的字符串，应如何实现？
比如说：有一个整数为8，想变成'0008'。关键是前导空格的实现。请问DELPHI有无这方面的函数。
请告诉用法，并举例子。
比如说：有一个整数为8，想变成'0008'。关键是前导空格的实现。请问DELPHI有无这方面的函数。
请告诉用法，并举例子。
...全文
请发表友善的回复…
发表回复
blueshrimp 2002-09-11
- 打赏
- 举报
晕，刚才不小心点了将贴子提前，点错了。再来
Str := RightStr('0000000000000000000000000000' + IntToStr(i), 位数)
Str := RightStr('0000000000000000000000000000' + IntToStr(i), 位数)
virtualmfc 2002-09-11
- 打赏
- 举报
Format函数我很少使用，请大家给出一个Format用法的中文解释和说明。
lovedandan 2002-09-11
- 打赏
- 举报
要是直接用函数的话：
str := Format("%4d",[i]);
也可以用循环：
str := inttostr(8);
for i:=1 to 4-length(str) do
str := '0' + str;
str := Format("%4d",[i]);
也可以用循环：
str := inttostr(8);
for i:=1 to 4-length(str) do
str := '0' + str;
windofsun 2002-09-11
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
S: string;
begin
I := 8;
s := Format('%5.4d', [I]);
Caption := s;
end;
var
I: Integer;
S: string;
begin
I := 8;
s := Format('%5.4d', [I]);
Caption := s;
end;
marf_cn 2002-09-11
- 打赏
- 举报
var
i: Integer;
s: string;
s:='000'+IntToStr(i);
i: Integer;
s: string;
s:='000'+IntToStr(i);
ccnh 2002-09-11
- 打赏
- 举报
具我所知，没有这类的函数。 通常的作法是先判断整数的位数，
然后在前面加0 。
然后在前面加0 。
drizzt123 2002-09-11
- 打赏
- 举报
str:=Format('%.4d',[data])
