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