新手，请高手指教

ymme 2003-10-22 03:47:53

我要取到一个变量的长度，如ISO 5603:1986； BISFA(95),我要取到‘：’符号后字符的长度，怎么取？
我先用intc:=pos(':',s);取到':'的位子，再用copy取到‘:’后的字符串，再用length(temp_intc)就可以了，用temp_intc:=copy(s,intc+1);这是不对的，怎样可以用copy取到':'后的字符串，或是有更好的办法，谢谢！

...全文

299 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

yjiany 2004-01-17

打赏
举报

我把代码发到你邮箱里了.

ljklxlj 2003-10-22

打赏
举报

i:integer;
ilength:integer;
for i:=1 to length('ISO 5603:1986； BISFA(95),') do
begin
if (midstr(i,1)=':') then
begin
ilength:=length('ISO 5603:1986； BISFA(95),')-i;
end;
end;

caven 2003-10-22

打赏
举报

length(s)-pos(':',s)+1

yxl2000 2003-10-22

打赏
举报

来晚了

zzh54zzh 2003-10-22

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
ss: String;
intc: Integer;
intResult: Integer;
begin
ss := 'ISO 5603:1986； BISFA(95),';
intc:=pos(':',ss);
ss := Copy(ss, intc, length(ss));
intResult := Length(ss);
end;

intResult即为':'后字符的长度^^

ymme 2003-10-22