ListBox Zahlen addieren und dann durch Count teilen

[Elite]

ka, mach`s so:

Delphi-Quellcode:

var
 i, average: integer;
begin
 average := 0;
 for i := 0 to ListBox1.Items.Count-1 do
  average := average + strtoint(ListBox1.Items[i]);
 average := average div Listbox1.Items.Count;
end;

Edit: Bug gefunden: Schaut mal auf das Profil von Toenn, links neben seinem Post. Fällt euch was auf?