Anweisung für FOR-Variable

[sakura]

So gehts (in Assmebler):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 1 to 100 do
  begin
    asm
      cmp ebx, 50
      jnz @@1
      mov ebx, 70
      @@1:
    end;
    ListBox1.Items.Add(IntToStr(I));
  end;
end;

......