SoloCodigo

Programación General => Delphi => Trucos => Mensaje iniciado por: Neko-sama en Jueves 4 de Agosto de 2005, 09:32

Título: Funcion Split En Delphi
Publicado por: Neko-sama en Jueves 4 de Agosto de 2005, 09:32
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
  1.  
  2. type
  3.   TStringArray=array of string;
  4.  
  5.  

despues la función:

Código: Text
  1.  
  2. function Split(cadena:String;parametro:String):TStringArray;
  3. var
  4.   i,indice:Integer;
  5.   revisa,arma:String;
  6.   arreglo:TStringArray;
  7. begin
  8.   arma:='';
  9.   arreglo:=nil;
  10.   indice:=0;
  11.   for i:=1 to Length(cadena) do
  12.   begin
  13.     revisa:=Copy(cadena,i,1);
  14.     if revisa=parametro then
  15.     begin
  16.       SetLength(arreglo, indice+1);
  17.       arreglo[indice]:=arma;
  18.       indice:=indice+1;
  19.       arma:='';
  20.     end
  21.     else
  22.       arma:=arma+revisa;
  23.   end;
  24.   SetLength(arreglo, indice+1);
  25.   arreglo[indice]:=arma;
  26.   Result:=arreglo;
  27. end;
  28.  
  29.  

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.