如获取字符串第二个逗号的位置？？

Question

如获取字符串中第二个逗号的位置？？

Answer 1

var
  s:string;
  index:Integer;
begin
  s:='123,21,3322';
  index:=Pos( ',', s );
  s:=copy( s,index+1,length( s )-index );
  showmessage( inttostr( index+Pos( ',', s ) ) );
end;

Answer 2

var
  s,tmp:string;
  index:Integer;
begin
  s:='123,21,3322';
  tmp:=s;
  index:=Pos( ',', tmp );
  tmp:=copy( s,index+1,length( tmp )-index );
  showmessage( copy( s,1,index+Pos( ',', tmp )-1 ) );
end;

Answer 3

var
 s:string;
 index:Integer;
begin
 s:='123,21,3322';
 index:=pos(',',s);
 delete(s,1,index);
 showmessage(inttostr(index+Pos(',',s)));
end;