Holas!
hace mucho tiempo me fabriqué una función Split en delphi 6.0 ... no se si en las nuevas versiones de Delphi ya implementaron una pero para los que tienen Delphi 6.0 para abajo o no ha salido para las nuevas versiones, les dejo esta util función que estan en lenguales como JavaScript, Visual Basic, JAVA, C++, etc...
primero:
type
TStringArray=array of string;
despues la función:
function Split(cadena:String;parametro:String):TStringArray;
var
i,indice:Integer;
revisa,arma:String;
arreglo:TStringArray;
begin
arma:='';
arreglo:=nil;
indice:=0;
for i:=1 to Length(cadena) do
begin
revisa:=Copy(cadena,i,1);
if revisa=parametro then
begin
SetLength(arreglo, indice+1);
arreglo[indice]:=arma;
indice:=indice+1;
arma:='';
end
else
arma:=arma+revisa;
end;
SetLength(arreglo, indice+1);
arreglo[indice]:=arma;
Result:=arreglo;
end;
entonces declaran alguna variable del tipo TStringArray y despues pueden llenarla con el Split y tendran un arreglo de elementos separados previamente por un caracter.
