Neftali, gracias por responder
estoy utilizando este codigo delphi en el cual para insertar los campos a la tabla lo hagopor un procedimiento almacenado llamado Splanoswinsiob
Código Delphi
[-]
procedure TFrmplanoWinsiob.BitBtn1Click(Sender: TObject);
var
F: TextFile;
cadena:string;
i : Integer;
begin
NomPlanoToImp := Trim(edtArchivo.Text);
if Archivo <> nil then
Begin
Archivo.Clear;
Archivo.LoadFromFile(NomPlanoToImp);
reArchivo.Lines.LoadFromFile(NomPlanoToImp);
End;
if reArchivo.Lines.Count = 0 then
Begin
ShowMessage('No a definido el archivo a LEER');
Exit;
End;
if MessageDlg('Seguro de LEER datos ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
begin
AssignFile(F,edtArchivo.Text);
end;
try
for i:=1 to Archivo.Count-2 do
Begin
Cadena := Archivo.Strings[i];
with Splanoswinsiob do
begin
params[0].Asstring :=Copy(Cadena,1,9);
params[1].Asstring :=Copy(Cadena,10,13);
params[2].Asstring :=Copy(Cadena,14,21);
params[3].Asstring:=Copy(Cadena,22,36);
params[4].Asstring:=Copy(Cadena,37,51);
params[5].Asstring:=Copy(Cadena,52,53);
params[6].Asstring:=Copy(Cadena,54,55);
params[7].Asstring:=Copy(Cadena,56,57);
params[8].Asstring:=Copy(Cadena,58,72);
params[9].Asstring :=Copy(Cadena,73,112);
params[10].Asstring :=Copy(Cadena,113,137);
params[11].Asstring :=Copy(Cadena,138,140);
params[12].Asstring :=Copy(Cadena,141,144);
params[13].Asstring :=Copy(Cadena,145,152);
params[14].Asstring :=Copy(Cadena,153,162);
params[15].Asstring := Copy(Cadena,163,166);
params[16].Asstring :=Copy(Cadena,167,206);
params[17].Asstring :=Copy(Cadena,207,221);
params[18].Asstring :=Copy(Cadena,222,246);
params[19].Asstring :=Copy(Cadena,247,249);
params[20].Asstring :=Copy(Cadena,250,250);
params[21].Asstring :=Copy(Cadena,251,270);
params[22].Asstring :=Copy(Cadena,271,311);
params[23].Asstring :=Copy(Cadena,312,327);
params[24].Asstring :=Copy(Cadena,328,370);
ExecProc;
end;
end;
except
raise;
end;