Скачать: CL | DM;

List index out of bounds   Найти похожие ветки 

← →
Eduard ©   (2002-06-27 10:20) [0]

Всем добрый день !!!
Имеется следующая процедура:

procedure TTableFrame.BitBtn1Click(Sender: TObject);
var InValue: string;
begin
case Form1.TreeView1.Selected.AbsoluteIndex of
5,6,7,8,9,10,11,12,13,14,15,16:
begin
if not InputQuery(".....", ".........", InValue) then Exit;

begin
Datamodule1.ADOCommand1.Parameters[Form1.TreeView1.Selected.AbsoluteIndex].Value := InValue; Сабж !!!!!
Datamodule1.ADOCommand1.CommandText := QueryArray[Form1.TreeView1.Selected.AbsoluteIndex+30];
if not DataModule1.ADOConnection1.InTransaction then
DataModule1.ADOConnection1.BeginTrans;
Datamodule1.ADOCommand1.Execute;
DataModule1.ADOConnection1.CommitTrans;
DataModule1.ADODataSet1.Requery();
end;
end;
end;
end;

Так вот, первый раз эта процедура выполняется нормально, во второй почему-то вылетает сабж. Помогите, пожалуйста, разобраться.

---

← →
Kaban ©   (2002-06-27 10:27) [1]

во народ. Ошибку перевести трудно
у тебя индекс вылез за пределы массива
Где-то здесь:

Datamodule1.ADOCommand1.Parameters[Form1.TreeView1.Selected.AbsoluteIndex].Value

Datamodule1.ADOCommand1.CommandText := QueryArray[Form1.TreeView1.Selected.AbsoluteIndex+30];

---

← →
Eduard ©   (2002-06-27 10:29) [2]

Все проверено. Параметров 21 штука, AbsoluteIndex никогда не превышает это значение. Вылазит ошибка независимо от AbsoluteIndex.

---

← →
Фикус ©   (2002-06-27 10:30) [3]

AbsoluteIndex принимает недопустимое значение

---

← →
Eduard ©   (2002-06-27 10:36) [4]

Не принимает он недопустимых значений !!!! Сто раз отладчиком проверял. Как он может принимать недопустимое значение, если вылазит, допустим, ошибка "List index out of bounds (7)", а параметров в ADOCommand целых 21 !

Самое интересное, что в первый раз эта процедура отрабатывается нормально.

---

← →
Kaban ©   (2002-06-27 10:42) [5]

а QueryArray что такое

---

← →
Eduard ©   (2002-06-27 10:47) [6]

QueryArray[0..50] - массив строк с запросами.
С ним все нормально, ошибка возникает раньше.

---

← →
Eduard ©   (2002-06-27 11:17) [7]

HELP !!!

---

← →
Eduard ©   (2002-06-27 15:13) [8]

Не верю, что этого никто не знает !!!

---

← →
Kaban ©   (2002-06-27 15:15) [9]

я высказал свое мнение, дальше может помочь только отладчик

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c