Co trochu vlastní snahy?
soucet := 0;
for i :=0 to ListBox1.Item.Count - 1 do
begin
soucet := soucet + strtoint(ListBox1.Item.Strings[i]);
end;
poradna.net
Neregistrovaný Přihlásit Registrovat