Procedure während gedrückthalten eines Buttons

[himitsu]

Delphi-Quellcode:

var
  A, X: Boolean;  // Pascal bzw. Delphi
  B: ByteBool;
  C: LongBool;  // C++ bzw. WinAPI
begin
  A := True;
  B := True;
  C := True;
  X := Boolean(9);
  ShowMessage(Format('%d %d %d %d'#10'%.2x %.2x %.8x %.2x '#10'%s',
    [Ord(A), Ord(B), Ord(C), Ord(X),
    Byte(A), Byte(B), LongWord(C), Byte(X),
    BoolToStr(X = True, True)  // if X = True then ...
  ]));

Konstanten: 0 und 1 (bzw. -1, also ein oder alle Bits)
Auswertung: =0 und <>0 (aber niemals =1)

[p80286]

Es gibt APIs die einen Integer und die boolsche Repräsentation liefern. False=0 True=1,2... (Aufgabe wurde ausgeführt) True=-1,-2.... (Aufgabe wurde erledigt,Fehler ist aufgetreten)
Da kann es passieren das True<>True ist.

Gruß
K-H

[Moombas]

Zitat von p80286:

Es gibt APIs die einen Integer und die boolsche Repräsentation liefern. False=0 True=1,2... (Aufgabe wurde ausgeführt) True=-1,-2.... (Aufgabe wurde erledigt,Fehler ist aufgetreten)
Da kann es passieren das True<>True ist.

Gruß
K-H

Also bei Lazarus z.B. erhalte ich für True durchaus den Wert "-1", auch ohne das ein Fehler aufgetreten ist.

[p80286]

OK noch ne Variante

Gruß
K.H