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.

[choose]

Zitat:

Zitat von sakura

So gehts (in Assmebler):

Delphi-Quellcode:

asm
  cmp ebx, 50
  jnz @@1
  mov ebx, 70
  @@1:
end;

Hallo Sakura, dieser Code funktioniert leider nicht mit jeder Schleife, weil

1. ebx nicht immer zum Zählen verwendet wird,
2. in vielen Fällen, Zähler und Offset getrennt gehalten werden, zB
   
   Delphi-Quellcode:

   for i:=0 to 255 do 
     myArray[i]:= i;

3. der Optimizer sonstwas fabrizieren kann, uU sogar die Richtung ändert, wenn die Zählvariable nicht in Ausdrücke eingebunden ist, und
4. er mit jeder Änderung des Compilers, Plattform, etc. angepasst werden muss

Klar warst Du Dir diesen Tatsachen bewusst, aber es könnte passieren, dass jemand anderes Deine Lösung einsetzt, in diesem Augenblick Erfolg und in produktiven Systemen zu einem späteren Zeitpunkt einen "Bug" in schlecht wartbarem Code hat...