[____jarik____]

Здравствуйте!
ошибка list index out of bounds (0)
подскажите в чем ошибка?

Код:

procedure TForm2.Button5Click(Sender: TObject);
begin


    for i := 0 to Form2.ListBox1.Count-1  do

     if (Form2.ListBox1.Items[i] = 'Лиття під тиском')then
      if (Form2.ListBox1.Items[i] = 'Виконати лиття') then

     begin
      a1:=50000; {вартість станка}
      a2:= 8; {кількість годин на добу}
      a3:= 250; {Робочих днів на рік}
      a4:= 1.15; {витратин на обслуговування}
      a5:= 5; {термін окупності}
      a6:= 1.05; {витрати на інструмент}
      a7:=0.75; {потужність станка}
      a8:= 2.13; {тариф за електроенегрію}
      a9:= 500; {зарплата робітника за 1 зміну}
      a10:= 2; {ваговий коефіціент(податкиі зарплата)}
      a11:= 2; {ваговий коефіціент (статистичнйи показник)}
      a12:= 4; {ваговий коефіціент (статистичний показник)}
      a13:= 0.4; {час роботи станка)}

      a:=((((a1*a6*a4)/(a2*a3*a5))+(a7*a8)+((a9*a10)/a2)+((a9*a10)/2*a2)+((a9*a10)/4*a2))*(1+(a14/100)))/a15;

       end;

Админ: Пользуемся тегами при оформлении кода!


Спасибо!