Leer un TXT e insertar en tabla de firebird

[[maeyanes]]

Pues según leo, me parece que si es necesario que sea un .txt, ya que parece ser que es un usuario el que va a manipular dicho archivo...

Ahora, para hacer el parseo que quieres, puedes usar la clase TStringList para lo que quieres, solo cargas cada línea en un TStringList y usas las propiedades que tiene para estos casos:

Código Delphi [-]
var
  Tokenizer: TStringList;
  I: Integer;

begin
  Tokenizer := TStringList.Create;
  try
    Tokenizer.Delimiter := '|';
    Tokenizer.StrictDelimiter := True;
    Tokenizer.DelimitedText := LineaDelArchivoDelimitado; // SRS1012101001120100707121115|SRS1|1|21|1|1|000-0000000-0|
      //RUTH ESTHER RODRIGUEZ...
    // Asignas cada Tokenizer[n] a un campo de la tabla:
    Tabla.Campo1.Value := Tokenizer[0];
    Tabla.Campo2.Value := Tokenizer[1];
    ...
    Tabla.Campon.Value := Tokenizer[n];
  finally
    Tokenizer.Free
  end
end;

Este es solo un ejemplo de como lo deberías hacer, para más información busca en la ayuda de Delphi sobre la clase TStringList.


Saludos...