|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
list index out of bounds (0)
Здравствуйте!
ошибка 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; Спасибо! Последний раз редактировалось Admin, 06.10.2019 в 17:07. |