Obtener los valores de un archivo .txt

[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