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'); 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 begin
TS.Clear;
ExtractStrings(['|'], [], PChar(Linea), TS);
DataSet.Append; 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.