Codeada recien por mi, al no haber tanto material en la net sobre esta práctica función, y una breve explicación,
de que hace.

Código: Seleccionar todo

function split(txt,del:string; poss:word):string;     //txt : es el texto a splitear,del: es el delimitador, y poss: es el lugar a cortar
var
i:word;          
stxt:string;
begin
    stxt:= txt;
     for i := 1 to poss do
               delete(stxt,1,Pos(del,stxt));   // borramos la cantidad de veces necesarias hasta llegar a la posicion que nos intereza

    split := Copy(stxt,0,pos(del,stxt) - 1);  // nos quedo    loquequeremos|nonosinteresa|etc|etc|, entonces copiamos desde el inicio hasta donde aparece el "|" menos 1 ;)
end;
uso:

Código: Seleccionar todo

writeln( Split('hola|uno|dos|tres|','|',1) );
devuelve : uno


recordemos:

Delete(textoaborrar, desde, cantidad a borrar);
Borra parte de un string



Pos( textocompleto, cadenabuscar); devuelve posicion de esa cadena;


Copy(textocompleto, desdedondecopiar, cantidad a copiar); devuelve el string copiado.



Leos
No hay éxito como el fracaso, pero el fracaso no es ningun éxito...
Muy bueno socio!! animará a codear nuevas aplicaciones en Delphi!

Saludos!

PD: Lo muevo aquí, que creo que encaja más
No importa cuan rápida y avanzada sea la tecnología, la mente humana aún es el procesador más versátil y creativo que hay.
Nice, en este momento estoy interesado en todo lo que tenga que ver con delphi, gracias
C0nnect3d/Spartan = same shit
Imagen
4n0nym0us escribió:
PD: Lo muevo aquí, que creo que encaja más
si tenes razón, mil disculpas

un abrazo!
No hay éxito como el fracaso, pero el fracaso no es ningun éxito...
Responder

Volver a “Fuentes”