will aus 2 listboxen die werte zusammen rechen

[Zacherl]

Delphi-Quellcode:

var i, 
  count_1,
  count_2: integer;
begin
  count_1 := 0;
  count_2 := 0;
  for i := 0 to ListBox1.Items.Count -1 do
    count_1 := count_1 + StrToInt(ListBox1.Items[i]);
  for i := 0 to ListBox2.Items.Count -1 do
    count_2 := count_2 + StrToInt(ListBox2.Items[i]);
  //Ergebniss: count_1 + count_2
end;

Florian