выполняю процедуру:
| Код |
procedure TForm1.Button4Click(Sender: TObject);
Var kol:Integer;
kol1:Integer;
i,j:Integer;
FileText:String;
begin
OraTable1.Active:=True;
kol:=Form1.ListBox1.Count;
for i:=0 to kol do
begin
FileText:=Form1.ListBox1.Items[i];
ListBox2.Items.LoadFromFile(FileText);
kol1:=Form1.ListBox2.Count;
Form1.OraStoredProc2.Prepare;
Form1.OraStoredProc2.ExecProc;
for j:=2 to kol1-3 do
begin
if Length(ListBox2.Items[j])<>0 then
begin
OraTable1.Insert;
OraTable1.FieldByName('allfile').AsString:=ListBox2.Items[j];
OraTable1.Post;
end;
end;
Form1.OraStoredProc1.Prepare;
Form1.OraStoredProc1.ExecProc;
end;
end;
|
после завершения процедуры выходит ошибка, все данные вносятся в бд, вроде все работает,помогите понять почему ошибка вылазит
вот ошибка:
http://pic.ipicture.ru/uploads/081204/FjlI5L2rxV.jpg |
