RE:como extraer datos de un fichero txt. ..
Mira. Yo he tenido que hacer algo parecido en el currele.
Aqui te pongo una serie de instrucciones para que te puedan servir...espero. Un saludo.
var
F: TextFile; {declaro una variable para enlazar al fichero}
begin
table1.Open; {la table1 se corresponde a una BD}
....
AssignFile(F, Edit1.text); {Le asigno el fichero que aparece en el OBJETO EDITTEXT}
Reset(F); {lo situo en la primera linea, primera posicion}
Readln(F,N); {leo la linea (con readln) y la meto en N}
...
READLN(F,N); {PASO A OTRA LINEA}
Codigo:=copy(N,1,7); {LA VARIABLE CODIGO VA
A CONTENER DESDE LA POSICION 1, 7 POSICIONES MAS
Y NO HASTA LA SIETE, QUE LA COGE DE N}
.......
table1.AppendRecord([Codigo,Dcorta,S]);
{AÑADO EL REGISTRO A LA BASE DE DATOS}
.....
TABLE1.EDIT; {PARA AÑADIR 1 CAMPO, EN ESTE CASO EL CAMPO DESCRIPCION}
Table1.FieldByName(´Descripcion´).asstring:=S;
table1.Post(); {meto los datos en la base de datos especificada en table1}
......
En los puntitos, te curras el código. Un consejo es que cada vez que leas la línea, hagas un TRIM, para quitar los espacios en blanco. Te será más fácil tratar el texto, ya que es muy puñetero.