Partir cadenas
 

Hola

Tengo un fichero txt que contiene en cada linea un registro para cargar en una BD, los campos vienen separados por tabuladores, voy leyendo linea a linea, necesito una función que pasandole la linea me devuelva cada uno de los campos para meterlos en un TStringList.

Gracias por anticipado y saludos.

El mismo TStringList tiene la propiedad DelimitedChar := chr(vk_tab), despues asigna la línea a DelimitedText, y voilá, tienes en cada elemento del StringList los campos separados por ese carácter.

Saludos

Gracias, porque me habia liado a buscar en la cadena el separador y añadir subcadenas a TStringList.