Importar ...
Código Delphi
[-]
var
arch: TStringList;
i:integer;
var_1, var_2 , var_3 :string;
...
begin
arch:= TStringList.Create;
arch.LoadFromFile( 'Path_Archivo.txt' );
for i:=0 to arch.Count-1 do
begin
temp:= arch.Strings[i];
var_1:= strToInt(copy(temp,1,2)); var_2:= strToInt(copy(temp,4,10)); var_3:= strToInt(copy(temp,15,5));
nuevo_id := resultado_query ;
end;
...
arch.Free;
end ;
Cualquier duda, consulta, y entramos en detalles