Schleifenabbruch durch Esc Taste...

[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

[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?

[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.