Schleifenabbruch durch Esc Taste...

[BUG]

Zitat von himitsu:

Und keiner gibt dem MainThread Zeit diese zu verarbeiten.

Sicher? Das doch macht Application.ProcessMessages.

[Codix32]

Zitat von BUG:

Zitat von Codix32:

Vielleicht eine zweite Schleife rein? Mal sehen.

Entweder das, oder:

Zitat von Dalai:

Warum überhaupt eine for-Schleife mit einem hohen Zahlenwert als Abbruchbedingung statt einer while- oder repeat-until-Schleife?

Du meinst eine Endlossschleife? Ja, das stimmt eigentlich. Ok

[Codix32]

Zitat von Codix32:

Zitat von BUG:

Zitat von Codix32:

Vielleicht eine zweite Schleife rein? Mal sehen.

Entweder das, oder:

Zitat von Dalai:

Warum überhaupt eine for-Schleife mit einem hohen Zahlenwert als Abbruchbedingung statt einer while- oder repeat-until-Schleife?

Du meinst eine Endlossschleife? Ja, das stimmt eigentlich. Ok

Dalai, danke,

Wenn ich das Caption rauslasse kann ich ESC drücken und das Form sofort schließen.

Delphi-Quellcode:

procedure TForm1.EndlossSchleife;
 var
 i:integer;
begin
 ResetEscPressed;
 while i <= 100000000 do
  begin
       Application.ProcessMessages;
       if EscPressed('Schleife abbrechen ?') then break;
  end;
      Label1.Caption:= 'stop';
end;

Wenn ich jetzt ein 'Caption:=inttostr(i);' einfüge, kann ich auch das Form sofort schliesen.
Erst wenn ich jetzt ein 'inc(i)' reintue, habe ich wieder das Problem

[Codix32]

Zitat von himitsu:

Zitat von BUG:

Stimmt, vermutlich wird da jedes mal eine Nachricht gesendet
Das könnte schon ein bisschen Ärger machen.

Und keiner gibt dem MainThread Zeit diese zu verarbeiten.

Das passiert alles erst nach dem Ende der Methode, bzw. beim Anzeigen des Abbruch-Dialogs.

@himitsu,

Das Caption ist aber schon zum Zähler geworden, nachdem ich den Button angeklickt habe und hat auch beim Drücken der ESC Taste sofort gestoppt.

[hathor]

Das procedure TForm1.EndlossSchleife; scheint nicht das Einzige zu sein, was in Deinem Programm abläuft.
Wie wäre es mit dem vollständigen Code...?

[himitsu]

Zitat von BUG:

Zitat von himitsu:

Und keiner gibt dem MainThread Zeit diese zu verarbeiten.

Sicher? Das doch macht Application.ProcessMessages.

Zitat von Codix32:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
begin
   ResetEscPressed;
   for i := 0 to 10000000 do
   begin
     Caption := inttostr(i);
     if EscPressed('Schleife abbrechen ?') then Break;
   end;
end;

Wo?
Also zumindestens nicht im Original.


Die Frage ist auch, ob man hier wirklich eine Lösung braucht, oder man man nicht besser einen "ordentlichen" und vorallem praxisnaheren Code verwendet.

[BUG]

Zitat von Codix32:

Wenn ich jetzt ein 'Caption:=inttostr(i);' einfüge, kann ich auch das Form sofort schliesen.
Erst wenn ich jetzt ein 'inc(i)' reintue, habe ich wieder das Problem

Ich vermute mal, das da auf Gleichheit geprüft wird, bevor irgendetwas bewegendes passiert. Müsste man wohl in die Sourcen gucken.

Allerdings hat Himitsu schon recht: richtig bringt es nichts, dem jetzt nachzuspüren ... hast du denn noch Problem mit dem Code in deiner Anwendung?

[Luckie]

Zitat von Dejan Vu:

Soweit ich mich erinnere, muss der Thread schon selber Bescheid geben, wenn er unterbrochen werden könnte, meist durch API-Aufrufe.

Du erinnerst dich falsch. jeder laufende Thread bekommt eine Zeitscheibe. Höher priorisierte Threads kommen einfach öfters dran und nicht länger.

Zitat:

Soweit ich weiß, unterbricht Windows die Threads nicht selbst, sondern nur die Prozesse...

Auch das stimmt leider nicht. Ein Prozess ist nur ein "Container" für Windows zur Verwaltung. Code wird immer nur von Threads ausgeführt.

[hathor]

Seit WIN VISTA gibt es neue APIs, u.a. die wait chain traversal API.
http://msdn.microsoft.com/de-DE/libr...=vs.85%29.aspx
http://docwiki.embarcadero.com/RADSt.../de/Wait_Chain

Man kann im Task Manager mit Rechtsklick auf das verdächtige Programm sehen, ob Threads hängen - siehe Anhang.

[Codix32]

[QUOTE=BUG;1279134]

Zitat von Codix32:

...
Allerdings hat Himitsu schon recht: richtig bringt es nichts, dem jetzt nachzuspüren ... hast du denn noch Problem mit dem Code in deiner Anwendung?

Nö, BUG,

es ist wirklich so, dass ich in dieser Anwendung nur diese Schleife laufen ließ, um den Tatenabbruch zu testen, es ist da sonst nichts.

Ich wollte jetzt auch nicht unbedingt eine Lawine lostreten. Es genügt mir, dass ich mit 'Sleep' ein Aufhängen des Rechners verhindern kann.
Natürlich mache ich mir schon Gedanken, dass eine 'GetAsyncKeyState' einen solchen programmübergreifenden Hänger verursachen kann. Sehe gerade, dass die Funktion der WinApi angehört, also keine, nur Delphi interne Funktion ist.
Andererseits habe ich auch schon an Net Framework 1.1 gedacht, das installiert sein muss, um Delphi 2005 überhaupt installieren zu können.