Einzelnen Beitrag anzeigen

Axxus

Registriert seit: 3. Okt 2006
212 Beiträge
 
Turbo Delphi für Win32
 
#1

Schleife duch Button anhalten und stoppen

  Alt 13. Nov 2006, 15:49
Also folgendes Problem ich hab 2 For do schleifen ineinander
Delphi-Quellcode:
If Fehler <> true Then
  begin
    For x := min_x to max_x do
    begin
      For y := min_y to max_y do
      begin
        If x < y Then
        begin
          z1 := x*x + y*y;
          z := sqrt (z1);
          if round(z)=z then
          begin
            Ausgabe := ( inttostr (x) + '; ' +inttostr (y) + '; ' + FloattoStr (z));
            Memo.Lines.Add (Ausgabe);
            Liste.Add(Ausgabe);
            Counter := Counter + 1;

          end;
        end;
      end;
    end;
    Memo.Lines.Add(inttostr (counter) + ' Zahlentrippel');
    counter := 0;
   
  end;
So sieht der Quelltext aus

x und y können in dem prog schon mal 1.000.000 werden (wie es der benutzer halt will)
solange das Programm die schleife berechnet kann ich nix anderes mit dem Programm machen
deswegen meine Frage

Wie kann ich während die Schleife läuft in dem Programm auf nen button drücken und wie kann der die Schleife anhalten und stoppen

Ich hoffe es ist klar was ich meine

wenn nicht posten und ich erklärs

Axxus
  Mit Zitat antworten Zitat