Hallo zusammen,

ich knabbere an einem Problem, an dem ich verrückt werde. Ich habe für unsere Schule ein Programm in Delphi 7 zur Vergabe von Facharbeiten in der Jgst. 12 geschrieben. Die Schüler können für die Facharbeit vier Fächer wählen und nach einem entsprechenden Algorithmus und vorgegebenen Bedingungen (nicht mehr als vier Arbeiten pro Kurs, nicht mehr als sechs Arbeiten pro Lehrer, falls ein Lehrer mehrere Kurse hat) werden von dem Programm die Facharbeiten zugelost. Dabei wird für jeden Los-Durchgang in Abhängigkeit der Verteilung der erfüllten Erst- bis Viertwünsche ein Score-Wert gebildet; sobald ein Score-Wert besser ist als der bisher beste, wird die aktuelle Zulosung gespeichert.

Die Zulosung soll bei uns öffentlich geschehen, weshalb es eigentlich so gedacht war, dass das Programm einen Button "Abbruch" hat, der den Algorithmus unterbrechen soll und die bis dahin beste Verteilung ausgibt, sodass eine Schuelerin oder ein Schueler nach x Minuten einfach "Stop" sagen kann. Gedacht hatte ich mir das so, dass durch Betätigen des Abbruch-Buttons eine globale Boolean-Variable auf "True" gesetzt wird, die vorher auf "False" initialisiert war. Die verschiedenen Durchgänge für das Losverfahren habe ich dann in einer REPEAT-UNTIL-Schleife untergebracht, deren Abbruchbedingung eigentlich sein sollte, dass die Abbruch-Variable auf "True" steht. Nun aber das Problem: Starte ich mit einem Start-Button den Ablauf des Programms, kann ich während des Ablaufs des Algorithmus gar nicht auf den Abbruch-Button klicken, sodass es auch gar nicht zum Abbruch des Algorithmus kommt. Da das Problem ja als Optimierungsvorgang ein nicht-endliches Problem ist, läuft ja eigentlich auch der Algorithmus unendlich.

Dementsprechend meine Frage: Wie kann ich Delphi dazu bekommen, dass es auch während der Abarbeitung der Befehle der Start-Button-Click-Prozedur das Betätigen eines anderen Buttons (Abbruch-Button bzw. Abarbeitung deren Click-Prozedur) zulässt. Ich hatte eigentlich gedacht, dass das unter den Begriff der Nebenläufigkeit fällt, aber über diesen Suchbegriff bin ich nicht wirklich fündig geworden. Gibt es da in Delphi keine Möglichkeit, sowas zu realisieren?

Danke im Voraus

Eric.

Du kannst das gut mit Threads bewerkstelligen.

Oder einfacher:

du rufst in deinen Schleifen



auf, damit kann dein Programm auf Ereignisse wieder reagieren.

Die Lösung schimpft sich APPLICATION.PROCESSMESSAGES.

jakobwenzel hat folgendes geschrieben:

Die Lösung schimpft sich APPLICATION.PROCESSMESSAGES.

dem ist nur noch ein Beispiel hinzuzufügen:

Hallo,

lieben Dank für die schnelle Hilfe. Mit Application.ProcessMessages klappt das hervorragend, das ist genau das, was ich brauchte. Ihr seid spitze!

Gruss und Dank

Eric.

Noch eine kleine Ergänzung dazu .

Der Befehl ist mit Vorsicht zu genießen. Er erfüllt zwar seinen Zweck, so wie er soll, aber er bedeutet doch einen erheblichen Performanceverlust, wenn er zu oft aufgerufen wird. Viel schöner ist da das Arbeiten mit Threads, was auch nicht all zu schwer ist, so lange der Algorithmus auch ohne direkten Zugriff auf die GUI auskommt (da Zugriffe auf die GUI auch hier Performanceverluste bedeuten, wegen Synchronisationen). Für dein Programm scheint allerdings der BEfehl zu reichen, auch wenn ich an deinem Problem nicht ganz verstanden habe, wie der Algo vorgeht, also ob man wirklich eine Endlosschleife braucht .