Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
ik, i: integer;
begin
i := 5;
for ik := 1 to i + 3 do
begin
ListBox1.Items.Insert(0, IntToStr(i));
i := i + 1;
end;
end;
// Gibt aus:
// 5, 6, 7, 8, 9, 10, 11, 12
Die Aufgabe ist so schlecht und sinnfrei, dass hier selbst die Profis (die anderen hier im Thema) nicht damit klar kommen
