Ver Mensaje Individual
  #3  
Antiguo 14-09-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Pues asi, de repente, se me ocurre esto:
Código Delphi [-]
var
  i: Integer;
  b1,b2: Byte;
begin
  b1:= i and $FF;
  b2:= (i shr 8) and $FF;
end;
Responder Con Cita