请问如何在长整型的左边补零？(100分)

七宗罪 · 2002-02-25

请问如何在长整型的左边补零？
比如，
var
s:loingint

begin
s：=803；
如何在S前补零，如果把S转换为字符串则可用FORMATFLOAT（‘0000’，S）实现，但是
把它重新转换为LONGINT型时，又变成三位？已搜索过论坛：-（

远帆 · 2002-02-25

如果是字符串，左边的零有意义，如果是整型数据，左边的前导零有意义吗？

荷塘新月 · 2002-02-25

用STRING类型如何？

dana · 2002-02-25

当然了，你只能用字符型的，一旦转为数据当然前面的0会没有的。

ugvanxk · 2002-02-25

create table tablename
(
id char(10) identify(1000,1) primary key
)

mercury78 · 2002-02-25

不知道你为何要这样做，如果为了显示，我有办法。

hfghfghfg · 2002-02-25

10000000
inttostr
delete(str,1,1);

hfghfghfg · 2002-02-25

var
s:loingint

str:string;
begin
s：=803；
str:=inttostr(s+1000000);
delete(str,1,1);
end;

hfghfghfg · 2002-02-25

存的时候加相应的数

显示的时候截掉第一位

lbl20020123 · 2002-02-28

要显示的话,用Format.
否则无意义

hfghfghfg · 2002-02-28

1001 > 001
100001 >000001
要显示的话,用Format.

FORMATFLOAT（‘0000’，S），中‘0’的个数你不要找个地方取？？？？

lanjiancn · 2002-02-28

要用的话再转啦

卷起千堆狗屎 · 2002-03-08

:copy(('000000'),1,length(i)-1)+inttostr(i)
假设你的数据长度为6位

七宗罪 · 2002-03-08

接受答案了.