For-do Schleife mit Sprung

[Niels]

Zitat von Luckie:

..., mit einem Trick geht es)...

Wie?

[phlux]

Genau Luckie zauber mal was aus deinem Hut (oder der roten Mütze )

[Luckie]

Abrakadabra, dreimal schwarzer Kater. Schwupps:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 9 do
  begin
    Inc(Integer(Pointer(@i)^));
    ShowMessage(IntToStr(i));
  end;
end;

[nailor]

goil! das ist ja end-praktisch. man sollte die while schleifen weglassen, die sind ja voll überflüssig

[phlux]

Also überschreibst du nur die Stelle im Speicher (wo der Zählwert steht), ohne das der Compiler es beim kompilieren merkt??

[nailor]

Ja. jedem Menschen fällt auf, dass

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@i^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ wenn man gleich viele @ wie ^s hat, wieder genau i ist. Aber der Compiler prüft sowas (zurecht) nicht nach. Allerdings habe ich immer gedacht, dass Schleifen intern anders funktionieren, und Luckies Gebastel daher eh nicht funktioniert. Aber eigentlich ist es mir ***egal, obs geht oder nicht, weil ich das (hoffentlich) nie brauchen werde!

[phlux]

Vielen dank für diesen wertvollen Post, ich werd ihn mir einrahmen

[nailor]

ich helfe, wo ich kann! PS: Nicht überreiben, irgendwann meckert Delphi von wegen "zu lange Zeile"

[Niels]

Was man eventuell dann beachten sollte, dass die schleife

for i := m to n do die Abbruchsbedingung (wenn man das so nennen kann) bei i = n+1 liegt. Wenn i also erstmal > i+1 ist dann hat man ne feine Endlosschleife.

MfG Niels

[HAF4ever]

Zitat von phlux:

Meines wissens nach darf man die Schleifenvariable nicht innerhalb der Schleife verändern

das kann ganz schön lustig werden ...
der compiler übersetzt das dann entweder mit einen increase and jump oder einen decrease and jump und bricht ab wenn er den wert erreicht hat bzw wenn er 0 erreicht hat ...
verändert man die variable, dann könnte da ziemlich schnell eine endlos schleife daraus werden ...