TurboPL Referenz

TestBit Prozedur

Top  Previous  Next

Syntax

TestBit(X, BitPos: Integer): Integer

Kategorie

Basisfunktion

Erklärung

Mit Hilfe der Funktion TestBit kann überprüft werden, ob ein bestimmtes Bit gesetzt ist oder nicht. Der Rückgabewert ist entsprechend entweder 1 oder 0.

X                beliebige ganze Zahl

BitPos                Bitposition beginnend bei 0 für das niederwertigste Bit

Laufzeitfehler

Keine

Beispiele

TestBit(1, 0) -> 1

TestBit(2, 0) -> 0

TestBit(7, 0) -> 1

TestBit(7, 1) -> 1

TestBit(7, 2) -> 1

TestBit(7, 3) -> 0

Besonders wichtig ist die Funktion im Zusammenspiel mit CommState zur Prüfung des seriellen Kommunikationskanals:

procedure DateiEnde(Kanal: Integer): Integer;
       vardef Result: Integer
       if TestBit(CommState(Kanal), 5)
               Result := 1;
       else
               Result := 0;
       end
       return Result;
endproc;

Siehe auch

CommState