• Martes 13 de Abril de 2021, 00:41

Autor Tema:  Funcion Split En Delphi  (Leído 3879 veces)

Neko-sama

  • Miembro activo
  • **
  • Mensajes: 99
    • Ver Perfil
Funcion Split En Delphi
« en: Jueves 4 de Agosto de 2005, 09:32 »
0
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.