Programm zur Bestimmung von PI - Schleife auf Knopfdruck abbrechen, aber wie?

[sx2008]

Delphi-Quellcode:

var
  b,h,x,y,u,i:integer;   // Hilfe, globale Variablen mit nur einem Buchstaben

Mach' dich mal mit lokalen Variablen vertraut.
Globale Variablen mit nur einem Buchstaben sind eine "Todsünde" für jeden Programmierer.
Beispiel wie man's besser macht:

Delphi-Quellcode:

procedure TForm1.ZeichneMonteCarlo;
var
  x ,y : integer;  // Lokale Variablen
begin
  x:=random(300); //zufallszahlen erzeugen von 0-299
  y:=random(300);
  if (sqrt((x*x)+(y*y))<=300) then //wurzel aus x^2+y^2 entspricht dem radius des VK
    image1.canvas.pixels[x,y]:=clblue
  else 
    image1.Canvas.Pixels[x,y]:=clred;
end;