Help List index out of bounds (0)

← →
petvv © (2006-05-15 13:09) [0]

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)
---------------------------
ОК
---------------------------

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

← →
unknown © (2006-05-15 13:21) [1]

На какой строчке ошибка?
А вообще - самое подозрительное вот это:
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;
?

Логично

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