PDA

Ver la Versión Completa : Partir cadenas


rcg2
23-06-2006, 10:34:36
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.

Lepe
23-06-2006, 11:42:37
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

rcg2
23-06-2006, 11:49:58
Gracias, porque me habia liado a buscar en la cadena el separador y añadir subcadenas a TStringList.