Konvertieren von Integer zu Byte als Hex

[hathor]

Ich hätte gerne auf die Suchfunktion verwiesen, aber die findest Du wahrscheinlich nicht...

Delphi-Quellcode:

function IntToByte(i:Integer):Byte;
asm
  MOV  EAX,i
  CMP  EAX,254
  JG   @SETHI
  CMP  EAX,1
  JL   @SETLO
  RET
@SETHI:
  MOV  EAX,255
  RET
@SETLO:
  MOV  EAX,0
end;