Ich hab eine for-Schleife, die man mit einem Klick auf nen "Pause"-Button unterbrechen können soll. Wenn wieder auf "Pause" geklickt wird, soll die Schleife da weiterlaufen, wo sie unterbrochen wurde. Ich hab das Problem so gelöst:

for(;i<=Form1->n; i++)
 {
  Application->ProcessMessages();
  if(!Form1->SpeedButton1->Down)   //"Pause" gedrückt?
  {
       //for-Schleife
  }
  else i--;
 }

Nur bleibt die CPU-Auslastung auch bei "Pause" bei annähernd 100%, so wie wenn er die Anweisungen in der Schleife ausführt.

Kann man des noch irgendwie anders machen?

-kaljinka-

Der vernünftigste Weg ist, die Schleife in einen eigenen Thread auszulagern. Dort kannst du dann Sleep verwenden, ohne die eigentliche Anwendung einzufrieren.

Alternativ könntest evtl. du die for-Schleife in eine eigene Funktion packen, der du Start- und Maximalwert als Parameter übergibst.
In der for-Schleife fragst du wieder deine Bedingung ab. Wenn true (Pause) dann beendest die Schleife und gibst den aktuellen Stand der Zählvariable zurück. Den Wert speicherst du irgendwo ab und übergibst ihn beim nächsten Aufruf der Funktion (UnPause) als neuen Startwert.

Ich denk, ich werd morgen mal versuchen, daraus ne eigene Funktion zu machen. Mit Threads hab ich bisher noch nie was gemacht und ich steh leider 'n bisschen unter Zeitdruck.

-kaljinka-

Spricht eigentlich irgendwas dagegen, die Zählvariable selbst gleich global zu definieren? Dann müsst ich sie gar nicht zwischenspeichern.

-kaljinka-

Globale Variablen sollte man immer vermeiden.

Warum?

Wie geht das mit Parametern? Ich muss ja warten, bis der Benutzer die Pause wieder aufhebt. Wo soll ich da den Wert zwischenspeichern wenn nicht global?

-kaljinka-

Oder sollt ich das lieber nicht machen? Is des ein ganz schlechter Programmierstil?

Hier mal ein Teil vom Code:
(es geht darum, die Kreiszahl pi stochastisch zu bestimmen)

void dart_pi(unsigned long int k, unsigned long int i)
{               //liefert die pi-Näherungen ab dem i-ten Wurf
 double x, y;                          //Koordinaten der Pfeile
 double curr_pi;                       //aktuelle pi-Näherung
 const double factor = 1.0/RAND_MAX;
 for(;i<=Form1->n; i++)
 {
  Application->ProcessMessages();
  x = rand()*factor;
  y = rand()*factor;
  Form1->DrawCross(x, y);
  if(x*x + y*y < 1.0) k++;
  curr_pi = 4.0*k/i;
  Form1->updateForm(x, y, curr_pi, k, i);
  if(Form1->pause)
  {
   if(Form1->cancel)
   {
    Form1->setDefault();
    Form1->SpeedButton1->Down = false;
    return;
   }
   return;
  }
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{                                //Pause
 if(SpeedButton1->Down) pause = true;
 else
 {
  pause = false;
  dart_pi(StrToInt64(Label7->Caption), StrToInt64(Label9->Caption));
 }
}

Und wenn wir schon dabei sind, reicht es, wenn ich randomize() einmal ganz am Anfang, direkt im ButtonClick, aufruf?

-kaljinka-

Nachdem ich die Werte für die Laufvariable sowieso ständig in einem Label ausgib, kann ich doch einfach wenn die Pause aufgehoben wird diesen Wert auslesen und wieder in nen Integer verwandeln und meine Funktion aufrufen.

Oder sollt ich das lieber nicht machen? Is des ein ganz schlechter Programmierstil?

Wenn du sicherstellst, das in dem Label während des Ablaufes nichts anderes steht, ist es eine gute Lösung. Natürlich benötigt eine Konvertierung von und nach AnsiString immer etwas Rechenleistung, es ist also nicht die effektivste.

Und wenn wir schon dabei sind, reicht es, wenn ich randomize() einmal ganz am Anfang, direkt im ButtonClick, aufruf?

randomize() sollte einmal beim Programmstart aufgerufen werden, also im Konstruktor des MainForms.

bis bald
akari

-kaljinka-