Anweisung für FOR-Variable

[devnull]

Hi,
ich hab ne normale FOR-Schleife und möchte innerhalb der Schleife die Schleifenvariable [i] erhören. Das geht aber nich ?

Delphi-Quellcode:

  for i := 1 to 100 do begin
      if i = 50 then i := 70;
  end;

Weis da jemand was ?

devnull

[sakura]

Da musst Du auf eine while-Schleife ausweichen.

Delphi-Quellcode:

I := 1;
while I <= 100 do
begin
  if I = 50 then
    I := 70;
  Inc(I);
end;

...:cat:...

[Chewie]

Richtig, das geht nicht. Zumindest nicht ohne schmutzige Tricks.
Aber eine for-Schleife ist ja extra dazu da, dass man sich nicht selbst um die Zählvariable kümmern muss. Was hast du denn vor?

[Stanlay Hanks]

Ich vermute mal, du möchtest den Bereich von 50 bis 70 überspringen, oder? Dann musst du wirklick eine While Schleife nehmen, wie Sakura (...:cat:...) schon sagte. :wink:

Man liest sich, Stanlay :hi:

[Matze]

Ich stell hier auch mal eine Frage ;)
Sie passt so gut hier her:

Gibt es nicht sowas, wäre praktisch:

Delphi-Quellcode:

for (i:=1 to 50) and (i:=70 to 100) do

[devnull]

Ok danke, die while-Schleife hat den Durchburch gebracht ...
Naja, ich versuche aus einer Zeile einzelne Information herauszunehmen:

Delphi-Quellcode:

  ;;NAME;VERSION;SIZE;DESCRIPTION;LINK;

So sieht die Zeile aus !
nochmal danke

devnull

[Chewie]

So was gibts:

Delphi-Quellcode:

for i := 1 to 50 do //
for i := 70 to 100 do //

:wink:

[Matze]

@Chewie: stimmt :wall:

War eine blöde Frage von mir.

[czapie]

@chewie

Schmutzige Tricks? Erläutere doch bitte ein bißchen weiter.
Czapie

[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;

...:cat:...

[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...