18-03-2018, 02:12 PM
(آخر تعديل لهذه المشاركة: 18-03-2018, 02:14 PM بواسطة محمد عبد العزيز.)
كود :
var
i,Sum: Integer;
begin
Sum := 0;
for i := 0 to ListBox1.Items.Count - 1 do
Sum := Sum + StrToInt(ListBox1.Items[i]);
Edit1.Text := IntToStr(Sum);
