[thinker89]

Необходимо посчитать сумму последних 10 чисел введенных в ListBox. Написал код, но во время выполнения программы появляется ошибка. Подскажите в чем проблема. Вот код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
ch1,ch2:variant;
position,summa,obsh1,obsh2,obsh3:variant;
i0,i1,i2,i3,i4,i5,i6,i7,i8,i9:string;
begin
ch1:=0.027;
ch2:=0.97;
position:=ListBox1.Items.Count;
i0:=ListBox1.Items[position];
i1:=ListBox1.Items[position-1];
i2:=ListBox1.Items[position-2];
i3:=ListBox1.Items[position-3];
i4:=ListBox1.Items[position-4];
i5:=ListBox1.Items[position-5];
i6:=ListBox1.Items[position-6];
i7:=ListBox1.Items[position-7];
i8:=ListBox1.Items[position-8];
i9:=ListBox1.Items[position-9];
summa:=StrToInt(i0)+StrToInt(i1)+StrToInt(i2)+StrToInt(i3)+StrToInt(i4)+StrToInt(i5)+StrToInt(i6)+StrToInt(i7)+StrToInt(i8)+StrToInt(i9);
obsh1:=ch1*summa;
obsh2:=ch2*StrToInt(i0);
obsh3:=obsh1+obsh2;
Memo1.Lines.Add(obsh3);
end;

[ryderx34]

Код:

position := ListBox1.Items.Count - 1;

[Pyro]

PHP код:

function skolko(list: TStrings; skonca: byte = 10): Integer;
var i: integer;
begin
  result := 0;
  for i := 1 to skonca do
    if list.count - i >= 0 then
      result := result + strtointdef( list[list.count - i], 0);
end; 


[thinker89]

Сообщение от ryderx34

Код:

position := ListBox1.Items.Count - 1;

Спасибо помогло. Два дня мучался, а всего двух символов не хватало.