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;
Código: Seleccionar todo
writeln( Split('hola|uno|dos|tres|','|',1) );
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