我想把int类型的数字128转化为12位的补0的字符,该怎么办?(50分)

Z

zhouxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #1

如:128
变为ST000000000128

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #2

s := IntToStr(a);
for i := 1 to 12 - Length(s) do s := '0' + s;

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #3

str:=inttostr(i);
while str.length<12 do str:='0'+str;
str:='ST'+str;

 

Z

zhouxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #4

我是想用format,

 

P

panyongze

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #5

procedure TForm1.Button1Click(Sender: TObject);
function str12(i:Integer):String;
var
j,k,n:Integer;
s:String;
begin
j:=Length(InttoStr(i));
S:='';
for k:=1 to 12-j do S:=S+'0';
Result := S+InttoStr(i);
end;
begin
Button1.Caption:=str12(128);
end;

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #6

DELPHI中：
S := Format('%0.12d', [128]);

在ORACLE中可以先转成VARCHAR2
再用LPAD('128', 12', '0)即可。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #7

DELPHI中：
S := Format('%0.12d', [128]);

在ORACLE中可以先转成VARCHAR2
再用LPAD('128', 12, '0')即可。

 

Z

zhouxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #8

谢谢

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #9

给你一个函数
type sDirection=(s_Left,s_Right,s_Up,s_Down);
function FillStr(sStr, fStr: string; i: integer;sides:sDirection): String;
begin
if sides=s_Left then //若为s_Left﹐从左填起
begin
while Length(sStr)<i do
sStr:=fStr+sStr;
Result:=sStr;
end
else
begin
while Length(sStr)<i do
sStr:=sStr+fStr;
Result:=sStr;
end;
end;

例﹕FillStr('128','0',12',s_Left)='000000000128';
自己可以根据需要自己改此函数

 

C

caidaoli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #10

Caption :=FormatFloat('ST0000000000000',128);

 

Z

zhouxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #11

多人接受答案了。