FOR-Schleifen-Start während Durchlauf +1 zählen

[TonyR]

Ja das hat er ja vor mir so gemacht mkinzler :wink:

Ich wollt bloß mal wissen, ob es even auch gibt...
(und, ja... ich weis, ich hätte auch in der Delphi-Hilfe nachgucken können)

[Torpedo]

Zitat:

Zitat von HannosG

Wozu auch. Man kann genauso gut im Schleifenrumpf eine If-Abfrage einbinden.

Damit man sich Code ersparen kann? (auch wenns nur eine Zeile ist) Wenn man sowas öfters machen will, wäre eine Schleife, bei der man die Schrittweite einstellen kann sicher, ganz nützlich.

[cruiser]

Wie wäre folgendes:

Delphi-Quellcode:

type
  TLoopProc = procedure(const counter: Int64);

{ ... }

procedure ForDo(const start, stop, step: Int64; LoopProc: TLoopProc);
var
  counter: Int64;
begin
  counter := start;
  if start <= stop then while counter <= stop do begin
    LoopProc(counter);
    counter := counter + step;
  end else while stop <= counter do begin
    LoopProc(counter);
    counter := counter - step;
  end;
end;

Beispiel:

Delphi-Quellcode:

procedure aLoop(const counter: Int64);
begin
  Form1.lst1.Items.Add(IntToStr(counter));
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  lst1.Items.Clear;
  ForDo(
    StrToInt64(edt1.Text),
    StrToInt64(edt2.Text),
    StrToInt64(edt3.Text),
    aLoop
  );
end;

zum rückwärtszählen dann einfach start grösser stop einstellen

[TonyR]

Das ist ja mal was Orginelles!!!
Sieht gut aus, deine For To Step - Schleife!!!

Wär das nicht auch was für die CodeLib???

[cruiser]

Evtl. Post ichs da ja... aber vorher bau ich noch wat äquivalentes für Double-Variablen und natürlich ableger für Object-Methods

[TonyR]

Zitat:

Zitat von cruiser

Evtl. Post ichs da ja... aber vorher bau ich noch wat äquivalentes für Double-Variablen und natürlich ableger für Object-Methods

Mach das! Wäre IMHO eine Bereicherung!!!