题：有一个字符串：1001，1002，1003，1004，1005通过一个循环分别showmessage出1001到1005我只知道copy(要截的字符串,开始位置，往后截的位数)

如果这个字符串是下面这个呢？？？，也就是不能通过位数来截取1001，10000002，1003，1004，1005

procedure TForm1.Button1Click(Sender: TObject);var str:string; i,j:integer;begin str:='1001,10000002,1003,1004,1005'; i:= pos(',',str); showMessage(intTostr(i)); while i<>0 do begin showMessage(copy(str,1,i-1)); str:=copy(str,i+1,length(str)-i+1); i:= pos(',',str); end; showMessage(str);end;