FOR - Schleife mit unterbrechung

[Marcel2906]

Diesmal hab ich eine einfache Frage glaub ich, doch leider fin dich dazu nichts bzw. weiß nicht wonach ich suchen soll.

Undzwar möchte ich eine For schleife unterbrechen und wieder fortsetzen, also quasi:

Delphi-Quellcode:

For i := 0 to 2 and 5 to 8 do begin

Also i soll einmal mit dem wert 1, dann mit wert 2 die schleife durchlaufen, danach auf 5 springen...
Doch geht sowas überhaupt, wenn ja, wie sieht es dann richtig aus?

[Bernhard Geyer]

Mit einer for-schleife nicht.

Hier müsstest du eine while-schleife machen:

Delphi-Quellcode:

i := 0;
while i < 8 do
begin
  ...

  Inc(i);

  if i = 3 then
    i := 5:
end;

[Marcel2906]

dann könnte ich es aber auch so machen, oder:

Delphi-Quellcode:

For i := 0 To 2 Do Begin
   //Anweisung
End;
For i := 5 To 8 Do Begin
   //Anweisung
End;

[Sir Rufo]

Ja, wenn es trotzdem noch DRY ist

[Marcel2906]

Dry ?

[Bummi]

Delphi-Quellcode:

for i in [1..2,5..8] do .....

[Sir Rufo]

Zitat:

Zitat von Marcel2906 (Beitrag 1136669)

Dry ?

Don't Repeat Yourself

[gammatester]

Klar geht das mit einer For-Schleife:

Delphi-Quellcode:

  for i:=0 to 8 do begin
    if i in [3,4] then continue;
    writeln(i);
  end;

[DeddyH]

Du kannst das auch so machen:

Delphi-Quellcode:

For i := 0 To 8 Do Begin
   if i in [0..2, 5..8] then
     ...
End;

Oder Du verlagerst den Code in eine eigene Routine, der Du das "Teilarray" übergibst.

[edit] :lol: gammatester hatte den gleichen Gedanken, nur andersherum umgesetzt [/edit]

[Sir Rufo]

Zitat:

Zitat von Bummi (Beitrag 1136670)

Delphi-Quellcode:

for i in [1..2,5..8] do .....

Die Bummi-Routine sieht am elegantesten aus :thumb:

[Marcel2906]

Zitat:

Zitat von Bummi (Beitrag 1136670)

Delphi-Quellcode:

for i in [1..2,5..8] do .....

genau so etwas hatte ich mir vorgestellt :)

[DeddyH]

Allerdings haben alle Varianten mit dem "in" den gleichen Nachteil: i muss sich im Byte-Bereich bewegen.

[himitsu]

Du kannst statt dem SET auch ein Integer-Array verwenden ... läßt sich ja notfalls auch live deklarieren.

http://www.delphipraxis.net/1134380-post577.html

[Bummi]

oder auch

Delphi-Quellcode:

Type
  TI=Array of Integer;
var
  i:INteger;
begin
  for I in TI(VarArrayOf([1,2500,700])) do Memo1.Lines.add(IntToStr(i));
end;

[DeddyH]

Oder auch:

Delphi-Quellcode:

procedure TForm1.DoSomethingSenseless(Values: array of integer);
var
  i: integer;
begin
  for i := Low(Values) to High(Values) do
    Memo1.Lines.Add(IntToStr(Values[i]));
end;

Das dürfte auch in älteren Delphi-Versionen funktionieren.