function GetBlockStr(s:String;n:integer;BlockChar:char):String; var loc:integer; begin Loc:=pos(BlockChar,s); if Loc=0 then if n=1 then Result:=s else Result:='' else if n=1 then Result:=Copy(s,1,loc-1) else Result:=GetBlockStr(copy(s,loc+1,length(s)-loc),n-1,BlockChar); end;这个函数可以依次取出 以;分隔的字符串,你取出来后放到数组中就可以了
var loc:integer;
begin
Loc:=pos(BlockChar,s);
if Loc=0 then
if n=1 then Result:=s else Result:=''
else
if n=1 then
Result:=Copy(s,1,loc-1)
else
Result:=GetBlockStr(copy(s,loc+1,length(s)-loc),n-1,BlockChar);
end;这个函数可以依次取出 以;分隔的字符串,你取出来后放到数组中就可以了