Abbruch in einer Schleife ermöglichen

[angos]

Guten Morgen,

du kannst zum Beispiel eine Variable vom Typ Boolean deklarieren und diese bei bedarf abfragen. Ich zeige dir mein Beispiel, damit sich das verdeutlicht.

Lege die ein Formular mit 2 Buttons und einem Edit an

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    btn1: TBitBtn;
    btn2: TBitBtn;
    edt: TEdit;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    bBreak: Boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var 
  i: Integer;
begin
  bBreak := False;  // Initialiserung
  for i := 0 to 1000000 do
  begin
    if bBreak then Break; // wenn die Abbruchbedingung gesetzt ist, Schleife abbrechen
    edt.Text := IntToStr(i);
    Application.ProcessMessages; // Sorgt dafür, dass Nutzereingaben empfangen werden können. 
  end;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  bBreak := True; // Wenn auf den Abbruch-Button geklickt wird, wird die Abbruchbedingung auf wahr gesetzt
end;

Gruß
Ansgar