Obtener los valores de un archivo .txt

[zugazua2001]

Hola amigos del club, tengo un problema, yo tengo un archivo con extension .txt. Este archivo esta compuesto por filas, cada fila tiene el siguiente formato:

Codigo del empleado, hora ingreso, hora egreso, fecha.

Codigo del empleado: seria alfanumerico de 5.
Hora: es del tipo TTime.
Fecha: es del tipo TDate.

Yo quiero levantar toda la informacion en una tabla que tenga esos mismos campos.

Bueno les agradeceria muchisimo me orientaran
Saludos a todos.

[celades1]

Hola

Esto es un ejemplo


procedure leer_fichero(fitxer:string)
Var F1 : TextFile;
ch,fecha,hora,codigo:string;
begin
AssignFile(F1,fitxer );
Reset(F1) ;
while not Eof(F1) do
begin
ReadLN(F1, Ch);
codigo:=copy(ch1,1,10);
fecha:=copy(ch1,11,10);
hora:=copy(ch1,21,10);
end
CloseFile( F1 );
end;


Luego transformas el string fecha a datetime y la hora al que tenga tu tabla
y pones el codigo necesario para insertar en tu tabla dentro del bucle while not Eof(F1)

En fin Saludos

[zugazua2001]

Gracias me ha sido muy util.
:)

[Lepe]

Otra forma más:


var archivo : TstringList;
i:integer;
begin

archivo := TStringlist.Create;
archivo.LoadFromFile('c:\.lñ.....');

for i:=0 to archivo.count-1 do
showmessage(archivo[i]);

freeandnil(archivo);
end;


Saludos