abbrechen einer FOR - Schleife

zulu · Hält's aus hier Beiträge: 2

hab folgende prob. : hab ein einfaches Prog geschrieben, das von der größeren zu kleinere runterzählt oder von der kleineren zur größeren hochzählt. wie kann ich die schleifen, während sie am zählen ist abbrechen/unterbrechen mithilfe eines "stop" buttons :?:

so sieht eine der schleifen aus :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

begin
              for zaehler := zahl1 to zahl2 do
                begin
                  buffer := inttostr (zaehler);
                  pnlausgabe.caption := buffer;
                  pause (500)
                end;

hoffe jemand kann mir weiterhelfen !

_________________
Computer sind phantastisch: in wenigen Minuten können sie einen so großen Fehler produzieren, den Menschen nur in vielen Monaten machen könnten.
-----------------------------------------------------------
--- WIN XP Prof. SP1 --- D5 Standard ---

w3seek · Beiträge: 64 Win XP; Win 2k; Suse 9.0 D5 Std, D6 Personal

wozu gibts eine Hilfe?
Break;

matze · Verfasst: Sa 31.05.03 13:10

du solltest in der schleife noch ein application.processmessages; einbauen, damit dein programm auch wärend der schleife reagiert.

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Ehemaliges Mitglied Erhaltene Danke: 1

break ist nur der zweite Teil der Aktion. Der erste wäre eine globale Variable (bspw. vom BOOL-Typ), die durch den Stop-Button gesetzt und innerhalb der Schleife abgefragt wird.

zulu · Hält's aus hier Beiträge: 2

thx habs mit ner BOOL variablen gemacht und mit break sieht jetzt so aus :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if zahl1<zahl2 then
            begin
              for zaehler := zahl1 to zahl2 do
                begin
                  application.processMessages;
                  buffer := inttostr (zaehler);
                  pnlausgabe.caption := buffer;
                  pause (time);
                    if breakpoint then
                      begin
                        break;
                        pnlausgabe.caption := buffer;
                      end;

und als stopbutton :

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button4Click(Sender: TObject);
begin
  breakpoint := true;
end;

klap einwandfrei danke !

_________________
Computer sind phantastisch: in wenigen Minuten können sie einen so großen Fehler produzieren, den Menschen nur in vielen Monaten machen könnten.
-----------------------------------------------------------
--- WIN XP Prof. SP1 --- D5 Standard ---

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme