请问一下，我在一个FOR循环里要用到一个字符串自动加一就像C语言里的什么++有没有阿， ( 积分: 100 )

Z

zgzwjn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #1

谢谢了，就比如说'98'加上一位变成'99'是怎么加的阿，是怎么写的式子阿，

 

Z

zgzwjn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #2

谢谢了，就比如说'98'加上一位变成'99'是怎么加的阿，是怎么写的式子阿，

 

方

方脑壳

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #3

你可以编一个函数实现C中++的功能啊比如：
function IncStr(Str: String): String;
var
iTemp: Integer;
begin
iTemp := StrToInt(Str);
Result := IntToStr(Inc(iTemp));
end;
这样就可以在你的for循环中使用了：
for i := 0 to 9 do IncStr('98');

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #4

Inc(i)

 

N

newsmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #5

inttostr(inc(i))

 

S

seasky212

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #6

inttostr(inc(i))

 

W

wanghaiou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #7

var
str:string;
i:integer;
begin
str:='0';
for I:=0 to 100 do
begin
str:=inttostr(strtoint(str)+1);
self.caption:=str;
sleep(1000);
end;

end;

 

Z

zgzwjn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #8

多人接受答案了。