Programación General > Trucos

 Funcion Split En Delphi

(1/1)

Neko-sama:
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:


--- Código: Text --- type  TStringArray=array of string;  
despues la función:


--- Código: Text --- 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.

Navegación

[0] Índice de Mensajes