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

Código Delphi [-]
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:

Código Delphi [-]
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