Leer campos de un archivo de texto.

[ecfisa]

Hola Ledian_Fdez.

Otra opción:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  TS: TStrings;
  Linea: string;
  i: Integer;
begin
  AssignFile(F,'C:\TU_ARCHIVO.TXT');  // nombre del archivo .txt
  Reset(F);
  try
    TS:= TStringList.Create;
    try
      while not Eof(F) do
      begin
        Readln(F, Linea);
        if (Length(Linea)>0)and (Linea[1] in ['0'..'9']) then  // los datos a pasar, empiezan con un número (codigo)
        begin
          TS.Clear;
          ExtractStrings(['|'], [], PChar(Linea), TS);
          DataSet.Append;   // (o insert)
          for i:= 0 to TS.Count-1 do
            DataSet.Fields[i].AsString:= TS[i];  
          DataSet.Post;
        end;
      end;
    finally
      CloseFile(F);
    end;
  finally
    TS.Free;
  end;
end;

En el ejemplo supongo que los datos en archivo de texto tienen el mismo órden que en la tabla, de no ser así tendrías que ponerlos a mano:

Código Delphi [-]
   DataSet.FieldByName('Codigo').AsString:= TS[1];
   ...
   DataSet.FieldByName('Email').AsString:= TS[5];

Un saludo.