Anweisung für FOR-Variable

[Chewie]

So gehts in Pascal:

Delphi-Quellcode:

var
  i: Integer;
  pi: PInteger;
begin
  for i := 1 to 100 do
  begin
    if i = 50 then
    begin
      pi := @i;
      pi^ := 70;
    end;
    Listbox1.Items.Add(InttoStr(i));
  end;
end;

Wenn ich mich nicht ganz täusche, wird dabei allerdings die Codeoptimierung ausgehebelt, was bei Sakuras Variante nicht der Fall ist.