怎么字符串自动加一呢？(10分)

B

batistutano9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #1

比如刚刚开始的时候是：M00001 加一后变成了M00002 M00003 ...........

 

J

jackchin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #2

应该让一个整型的变量自动加1, 需要时才转换为字符串
Format('M%.5d',);

 

D

dez_0609

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #3

var
i:integer;
id:string;
begin
i:=1;
while i<100 do
begin
id:='00000'+IntToStr(i);
id:='M'+Copy(id,length(id)-4,5);
showmessage(id);
inc(i);
end;
end;

 

B

batistutano9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #4

Format('M%.5d',);是什么意思？

 

H

hnxx2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #5

Format('M%.5d',);
format('%D',):是指格式化整数为字符串；i:integer;
format('M%.5d',):指格式化时第一个字符为:M；'.5':是表示将整数格式化成5位长度的字符；如整数不足5位的前面加：'0';

 

B

batistutano9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #6

哪个函数可以提取一个字符串中的某个字符呢？比如我要提取除了M之外的其它字符。

 

H

hnxx2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #7

pos()
copy()

 

D

dez_0609

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #8

copy(str1,2,length(str1)-1);

 

B

batistutano9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #9

分太少了，不要见怪哦，谢谢大家

 

S

smhsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #10

使用下面的函数，就是字符串中包含汉字也可以
function GetXh(const val:string):string;
var str,str1:string;
begin
str:= string(GetRightNum(pchar(val)));
if str='' then
begin
str:=val+'1';
end
else
begin
str1:=copy(val,1,length(val)-length(str));
str:=str1 + inttostr(strtoint(str)+1);
end;

Result := str;

end;

 

B

batistutano9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #11

多人接受答案了。