Warten auf ...? MsgWaitForMultipleObjects

[negaH]

Delphi-Quellcode:

if DWord(-7) >= 0 then
  while (Dword(Milliseconds) > 0) or TRUE do ;

if (Milliseonds in [-MaxInt..+MaxInt]) and 
   (GetTickCount in [0..MaxCardinal]) and
    SourceCompiledWithDelphiAbove5 then 
  Writeln('WARNING: unterschiedliche Typen, beide Typen werden erweitert und Laufzeitfehler bringt Bereichsfehler');

Anders gesagt: wäre Milliseconds Type DWord dann könnte die letzte Zeile Milliseconds := Tick - GetTickCount, Milliseonds mit Wert < 0 errechnen. Somit würde die while Milliseconds > 0 do Schleife nur terminieren wenn Milliseconds exakt ZERO ist. Also muß Milliseconds Type Integer sein. Der TypCast nach DWord() wiederum soll die Compilerüberprüfung deaktivieren, sowohl den Compiler mit seiner Warnung der unterschiedlichen Integertypen die kombiniert werden, wie auch die Laufzeitfehler-überprüfung die wenn aktiviert einen Bereichfehler melden würde. Beide Überprüfungen SIND in diesem Falle schwachsinnig da selbst wenn Milliseconds Type Int64 wäre, 1. kein Mensch so lange Delays macht und 2. GetTickCount eh bei 2^32-1 überlaufen würde.
Andererseits müsste man den Code so umschreiben das er entweder eine zusätzliche lokale Variable nutz um korrekt umzurechnen, oder aber man musst in der while Schleife zusätzlich GetTickCount aufrufen. Nämlich

Delphi-Quellcode:

while Tick > GetTickCount do
  case MsgWait..(.., Tick - GetTickCount) of

Der Cast sichert also den Code ab, optimiert eine lokale Var weg bzw. einen unnötigen Aufruf von GetTickCount;


Also alles ok mit dem Source Gruß Hagen