-
Forum: Object-Pascal / Delphi-Language
by Codix32,
9. Nov 2014
Hallo, hathor,
so was habe ich in meinem Task Manager vergeblich gesucht. Der Tab 'Details' fehlt bei meinem Task Manager.
Ich danke Dir für Deine Hilfe, hathor, aber mit Threads, Scheduler, Deadlocks, Thread-Prozessprioritäten, da ehrlich gesagt bin ich noch ein außerordentliches Greenhorn. :oops:
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
9. Nov 2014
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...
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
7. Nov 2014
@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.
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
7. Nov 2014
Dalai, danke,
Wenn ich das Caption rauslasse kann ich ESC drücken und das Form sofort schließen.
procedure TForm1.EndlossSchleife;
var
i:integer;
begin
ResetEscPressed;
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
7. Nov 2014
Du meinst eine Endlossschleife? Ja, das stimmt eigentlich. Ok
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
7. Nov 2014
Wie kann ich das prüfen, ob es das Form1.caption ist?
Wenn ich das Caption auskommentiere läuft die Schleife zu schnell ab. Vielleicht eine zweite Schleife rein? Mal sehen.
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
7. Nov 2014
Acer Predator G3610
8 GB RAM
64 Bit - Betriebssystem
Prozessorkerne 4
Grafik AMD Radeon HD 6870
Du wirst es vielleicht nicht glauben, aber wenn ich den Task Manager aufrufe und die Leistung anzeige, bleibt selbst die Grafik stehen, die sonst im Sekunden Rhythmus von rechts nach links läuft. Im Ressourcen Monitor werden gleich 8 Kerne angezeigt, obwohl die CPU bloß 4 Kerne hat ?!?
Im...
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
7. Nov 2014
Ja ok, es laufen Prozesse, die man nochmal in Threads unterteilen kann, oder so ähnlich.
Aber die werden ja großteils blockiert, wenn ich die Schleife ohne Sleep laufen lasse.
Es geht dann eben 12 Sekunden lang nichts mehr. Weder in der compilierten Form, noch lässt sich ein anderes externes Fenster anklicken. Der Mauszeiger bleibt solange der Pfeilzeiger.
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
5. Nov 2014
Vielen lieben Dank Dalai,
das Sleep(1) sorgt tatsächlich dafür, dass ich nach dem Klick auf ESC das Formular schließen kann.
Ich habe das Sleep einfach mal so eingefügt:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
2. Nov 2014
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
ResetEscPressed;
for i := 0 to 10000000 do
begin
Application.ProcessMessages;
Caption := inttostr(i);
if EscPressed('Schleife abbrechen ?') then break;
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
1. Nov 2014
Das Stimmt. Aber jetzt habe ich das Problem, dass nach dem Klick auf Escape die Schleife zwar gebreakt wird, aber wenn ich versuche, das Formular zu schliesen, dauert das gut 7 Sekunden. Das Programm scheint einzufrieren.
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
1. Nov 2014
Was könnte da falsch sein?
Unit1
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
ResetEscPressed;
-
Forum: Object-Pascal / Delphi-Language
by Codix32,
1. Nov 2014
Hallo,
in der CodeLib auf Delphi Praxis gibt es die Beschreibung eines Schleifenabbruchs per Tastaturdruck
mit Messagedialog Abfrage:
http://www.delphipraxis.net/98300-schleife-per-tastendruck-unterbrechen.html
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;