AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi FOR-Schleifen-Start während Durchlauf +1 zählen
Thema durchsuchen
Ansicht
Themen-Optionen

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

Ein Thema von Svenkan · begonnen am 19. Apr 2007 · letzter Beitrag vom 19. Apr 2007
Antwort Antwort
Seite 3 von 3     123   
Benutzerbild von TonyR
TonyR

Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
 
FreePascal / Lazarus
 
#21

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

  Alt 19. Apr 2007, 17:30
Ja das hat er ja vor mir so gemacht mkinzler

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)
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg
  Mit Zitat antworten Zitat
Torpedo

Registriert seit: 21. Dez 2003
410 Beiträge
 
#22

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

  Alt 19. Apr 2007, 18:07
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.
  Mit Zitat antworten Zitat
Benutzerbild von cruiser
cruiser

Registriert seit: 23. Dez 2003
Ort: Königsbrück/Sachsen
455 Beiträge
 
Delphi 7 Enterprise
 
#23

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

  Alt 19. Apr 2007, 18:22
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
  Mit Zitat antworten Zitat
Benutzerbild von TonyR
TonyR

Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
 
FreePascal / Lazarus
 
#24

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

  Alt 19. Apr 2007, 18:27
Das ist ja mal was Orginelles!!!
Sieht gut aus, deine For To Step - Schleife!!!

Wär das nicht auch was für die CodeLib???
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg
  Mit Zitat antworten Zitat
Benutzerbild von cruiser
cruiser

Registriert seit: 23. Dez 2003
Ort: Königsbrück/Sachsen
455 Beiträge
 
Delphi 7 Enterprise
 
#25

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

  Alt 19. Apr 2007, 18:35
Evtl. Post ichs da ja... aber vorher bau ich noch wat äquivalentes für Double-Variablen und natürlich ableger für Object-Methods
  Mit Zitat antworten Zitat
Benutzerbild von TonyR
TonyR

Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
 
FreePascal / Lazarus
 
#26

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

  Alt 19. Apr 2007, 19:26
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!!!
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 3     123   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz