Was der Compiler daraus macht unterscheidet sich nicht von dem hier:
Delphi-Quellcode:
procedure CountMe2;
var
i: Integer;
begin
i := 1;
repeat
Inc(PInteger(@i)^);
Inc(i);
until i = 21;
end;
Hier hat man den Vorteil das man die Abbruchbedingung kontrollieren könnte, z.B. zu "until i > 20".
Die For-Schleife frage immer nur auf Gleichheit ab, wodurch
Delphi-Quellcode:
For i := 0 to 20 do
Inc(PInteger(@i)^)
zu einer Endlosschleife führt.
MfG,
Tryer