Listboxta toplama

[nijara]

arkadaşlar listbox'a yazdığım sayıların toplamını bir label'de görmek istiyorum.Yardım edermisiniz...

[Sedat GÖKÇEK]

merhaba,

Kod: Tümünü seç

var
 i,toplam : Integer;
begin
  toplam:=0;
  For i:=0 to Listbox1.Count-1 do
     toplam:= toplam+StrToInt(ListBox1.Items[i]);

  label1.Caption:=InttoStr(toplam);
end;

kolay gelsin.