Obtener los valores de un archivo .txt
 

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.

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

Gracias me fue muy util
 

Gracias me ha sido muy util.
:)

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