| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Help List index out of bounds (0) [D7, Paradox]

petvv ©   (2006-05-15 13:09:00) 

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
Fuel.IndexDefs.Update;
for I := 0 to Fuel.IndexDefs.Count - 1 do
if Fuel.IndexDefs.Items[I].Fields = 'NUM' then
  Fuel.IndexName := Fuel.IndexDefs.Items[I].Name;
  Fuel.Active:=True;

Osnovan.IndexDefs.Update;
for I := 0 to Osnovan.IndexDefs.Count - 1 do
if Osnovan.IndexDefs.Items[I].Fields = 'Num' then
  Osnovan.IndexName := Osnovan.IndexDefs.Items[I].Name;
  Osnovan.Active:=True;

Osn.IndexDefs.Update;
for I := 0 to Osn.IndexDefs.Count - 1 do
if Osn.IndexDefs.Items[I].Fields = 'ShiftNum;Product;Osnovanye' then
  Osn.IndexName := Osn.IndexDefs.Items[I].Name;
  Osn.Active:=True;

qOsn.Params[0].AsDateTime:=DateBeg.Date;
qOsn.Params[1].AsDateTime:=DateEnd.Date;
qOsn.SQL.Text:='select Fuel.Marka, Osnovan.Name, sum(TotOsnov.Lit), sum(TotOsnov.Cur) from TotOsnov, Fuel, Osnovan where Osn.ShiftTo>=:QDBeg and Osn.ShiftTo<=:QDEnd group by MARKA, Name';
qOsn.Active:=True;
end;

Итог = грабли !!!
---------------------------
Otchet
---------------------------
List index out of bounds (0)
---------------------------
ОК  
---------------------------

Подскажите плз чего я упустил или не правильно сделал ?

---

petvv   (2006-05-15 13:26:00) [1]

Логично

---

unknown   (2006-05-15 13:21:00) [2]

На какой строчке ошибка?
А вообще - самое подозрительное вот это:
qOsn.Params[0].AsDateTime:=DateBeg.Date;
qOsn.Params[1].AsDateTime:=DateEnd.Date;
qOsn.SQL.Text:=<skipped>;
Может все-таки
qOsn.SQL.Text:=<skipped>;
qOsn.Params[0].AsDateTime:=DateBeg.Date;
qOsn.Params[1].AsDateTime:=DateEnd.Date;
?

---

Наверх