Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Startangaben(Situation); { Initialisierung }
Repeat
Befehlszyklus(Situation);
{ startet das Turingprogramm, wird aufgrund gegebener Startangaben definitiv mehrmals durchlaufen }
Application.ProcessMessages;
Until Situation.beendet;
Endinformation(Situation);
end;
Das ist das OnClick-Event des Startknopfes.
Delphi-Quellcode:
procedure TForm1.bAbbruchClick(Sender: TObject);
begin
Form1.close;
end;
Das vom Abbruch-Button.
Ich habe auch mal probiert mittels der Zuweisung einer Prozedur zu Application.OnMessage herauszufinden welche Nachrichten denn überhaupt verarbeitet werden... ich habe die Ausfürhung dann immer mal angehalten, wenn sie sich gerade in einer Verzögerungsschleife befand und als nächstes die Nachricht, dass ich einen Knopf drückte verarbeiten müsste. Merkwürdiger Weise waren MSG.message, MSG.wparam und MSG.lparam immer 0.
//Edit: Um, möchtest du noch andere Teile des Quelltextes? Ich denke jedoch, dass andere ist nicht so wichtig.