Eine Schleife Abbrechen....

[Michael Habbe]

Hi,

hier der Code:

Delphi-Quellcode:

procedure DoSomething;
var 
  i: Integer;
begin
  for i := 1 to 1000000000000000000000000000 do
  begin
    DoSomethingMore;
    Application.ProcessMessages;
    if CheckBox1.Checked then
      Break;
  end;
end;