Während Scchleife auf Button zugreifen

[bjacke]

Hi,
ich möchte in einer Schleife auf einen AbbruchButton zugreifen, der die Schleife beendet, wenn der User das will.
Hat da jemand eine Idee?

[Prym]

bei einer repeat schleife würde ich

Application.ProcessMessages;
vör setzen

und bei until was mit ner boolean variablen einbaun

[bjacke]

Zitat:

Zitat von Prym

bei einer repeat schleife würde ich

Application.ProcessMessages;
vör setzen

und bei until was mit ner boolean variablen einbaun

Kannst du das vielleicht ein wenig ausführen, ich hab das nicht so ganz mitbekommen!

[mr47]

Mach das mit einer while schleife und einer Boolean-Variable. Die Variable ist auf false. Mit dem Click auf den button wird sie

Delphi-Quellcode:

stopSchleife:=true

auf true gesetzt. Die Schleife sieht so aus:

Delphi-Quellcode:

implementation
var stopSchleife: boolean;

//... ...


while stopSchleife=false do
begin
  // Anweisungen
end;

Wichtig!: Die Variable "StopSchleife" muss global sein!

mfg

[SirThornberry]

und in die Schleife unbedingt

Delphi-Quellcode:

Application.ProcessMessages;

[Prym]

ich dachte das so

Delphi-Quellcode:

var
stop : boolean;

procedure TForm1.ButtonStartClick(Sender: TObject);
begin

stop := true;

repeat
Application.ProcessMessages;
//anweisung
until stop = false;

end;

procedure TForm1.ButtonStopClick(Sender: TObject);
begin
stop := false;
end;

[mr47]

...und das kommt auf genau das selbe raus / bewirkt das selbe :wink: :roll:

mfg

[SirThornberry]

@Prym: wenn wir einmal dabei sind. Bring den anderen bitte nix mit globalen bei!!! Wenn die Varialbe "Stop" im Private von "TForm" ist erfüllt sie genau den gleichen zweck und zusätzlich ist das ganze objectorientiert.

[bjacke]

Danke klappt 1A!

[Prym]

@SirThornberry
wie meinste das?
das war doch fast genau das selbe wie bei mr47