función dividida en Delphi

// divide la cadena de acuerdo con la cadena, que es equivalente a la función dividida en VB

function splitString (constante const, ch: string): tStringList;

varilla

temp: cadena;

I: entero;

Comenzar

Resultado: = tStringList.create;

// Si es una cadena vacía, vuelva a una lista vacía

Si fuente = ''

luego salir;

temp: = fuente;

i: = pos (ch, fuente);

Mientras yo <> 0 lo hago

Comenzar

Result.add (copia (temp, 0, i-1));

Eliminar (temp, 1, i);

i: = pos (ch, temp);

fin;

Resultado.Add (temp);

fin;

www.sinoprise.com