看下这个函数吧。
function GetString(s,se:String;n:Integer):String;
var
rs:String;
i,j:Integer;
begin
i:=0;
rs:='';
if n=1 then
begin
while s<>sedo
begin
rs:=rs+s;
i:=i+1;
end;
result:=trim(rs);
exit;
end;
j:=1;
i:=0;
rs:='';
while j<>ndo
begin
while s<>sedo
i:=i+1;
while s=' 'do
i:=i+1;
I:=I+1;
j:=j+1;
end;
// I:=I+1;
while (s<>se) and (i<=Length(s))do
begin
rs:=rs+s;
i:=i+1;
end;
result:=trim(rs);
exit;
end;
GetString('1/2/3','/',2)返回'2'
改进一下就可以成split了
