分割字符串

[nuaa_wym]

有一字符串，例如'20,21,39,29',要把其中的整数分离出来放到一个数组里去，请问用什么函数

[heixiu1980]

var
TempInt:Integer;


Str:='20,21,39,29...';
i:=0;
while Pos(',',Str)<>0 do
begin
try
TempInt:=StrToInt(Copy(Str,1,Pos(',',Str)-1));
except
Str:=Copy(Str,Pos(',',Str)+1,Length(Str)-Pos(',',Str));
exit;
end;
Result[i]:=StrToInt(Copy(Str,1,Pos(',',Str)-1));
Str:=Copy(Str,Pos(',',Str)+1,Length(Str)-Pos(',',Str));
Inc(i);
end;

[lovelymelon]

procedure TForm1.Button1Click(Sender: TObject);
var
s,s1:string;
i,j:integer;
begin
s:='20,30,40,50';
i:=length(s);
for j:=0 to i-1 do
begin
if s[j]=',' then
begin
s1:=s[j-2]+s[j-1];
showmessage(s1);
end;
end;
if s[i]<>',' then
begin
s1:=s[i-1]+s[i];
showmessage(s1);
end
else
begin
s1:=s[j-2]+s[j-1];
showmessage(s1);
end;
end;

[yuanyu368]

我倒~~~~UP
又晚来一步，两位人兄都写出代码来了，

[qxj]

copy

[xiaocha]

procedure Splite(s: String; l: TStrings);
begin
ExtractStrings([','],[#9,' '],PChar(s),l);
end;

到了TStrings，转到数组，就不用我写了吧！