请问080711这样的数怎么做加1循环 ( 积分: 100 )

O

ohmymother

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-28

• #1

请问
080711这样的数怎么做加1循环？

 

G

gjde2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-28

• #2

080711？？不是数字型吧，是字串？

 

A

asksomeone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-29

• #3

如果是数字，不是数字转成数字，想要循环，不停地，那就可以放到timer定时器里，定时触发也行，还有我想while not application.Terminated do这样子做也行吧
var i:integer;
begin
i:=080711;
inc(i,1);//这是加1
inc(i);//这种也是加1
i:=i+1;//这种也可以
end;

 

B

bennythb001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-29

• #4

不清楚楼主的意思

 

无

无柄叶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-29

• #5

呵呵，大家注意了没有，楼主的数是“ 080711” 也就是第一位是“ 0” 如果转换成数字就变成了“ 80711” 了。所以 asksomeone 的方法应该不符合楼主的要求。呵呵。好了，大家继续。。

 

A

abigfish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-29

• #6

应该指字符串
var i:string;
begin
i:='080711';
reuslt:=copy(inttostr( 100000000+strtoint(i)),4,6);
end;

 

A

asksomeone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-29

• #7

如果是数字，不是数字转成数字，想要循环，不停地，那就可以放到timer定时器里，定时触发也行，还有我想while not application.Terminated do这样子做也行吧
var i:integer;
begin
i:=080711;
inc(i,1);//这是加1
inc(i);//这种也是加1
i:=i+1;//这种也可以
end;
是开始没有看清楚应该是字符串
那就
var i:integer;
ss:string;
begin
i:=080711;
inc(i,1);//这是加1
inc(i);//这种也是加1
i:=i+1;//这种也可以
ss:='0'+intostr(i);//做个转化
end;

 

B

bennythb001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-29

• #8

format('00000000000',i)

 

B

bennythb001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-29

• #9

用这个东东formatfloat()

 

G

gjde2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-04

• #10

十万位的，如果再大自己加。
自己写个函数完成，
function Tostring(var x:integer):string;
var
testr:string;
begin
if x<10 then
testr:='00000'+inttostr(x);
if (x<100)and(x>9) then
testr:='0000'+inttostr(x);
if (x<1000)and(x>99) then
testr:='000'+inttostr(x);
if (x<10000)and(x>999) then
testr:='00'+inttostr(x);
if (x<100000)and(x>9999) then
testr:='0'+inttostr(x);
if x>100000 then testr:=inttostr(x);
result:=testr
end;