06-12-2006, 12:01
Listbox 'ın içindeki sayıların toplamını bulup, Label ' e yazdırma.
procedure TForm1.Button1Click(Sender: TObject);
var
toplam,i:integer;
begin
toplam:=0;
for i:=0 to listbox1.items.count-1 do
begin
toplam:=toplam+strtoint(listbox1.items[i]);
Label1.Caption:=inttostr(toplam);
end;
end;
İyi çalışmalar.
procedure TForm1.Button1Click(Sender: TObject);
var
toplam,i:integer;
begin
toplam:=0;
for i:=0 to listbox1.items.count-1 do
begin
toplam:=toplam+strtoint(listbox1.items[i]);
Label1.Caption:=inttostr(toplam);
end;
end;
İyi çalışmalar.