Listboxen initialisieren, umkopierne ...

[dr. love]

es bietet sich an eine For-Schleife von 1 bis 16 zu nehmen, mit den eigentlichen Werten aber nur dann zu arbeiten (diese auszugeben?), wenn sie durch 2 ohne Rest teilbar, also gerade sind:

Die Bediingung h mod 2 = 0 im folgenden Quelltextbaustein

Delphi-Quellcode:

for i := 1 to 16 do
begin

  if i mod 2 = 0 then 
    ...

end;

muss also erfüllt sein