Foros Club Delphi - Separar los bytes de una variable integer

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Separar los bytes de una variable integer (https://www.clubdelphi.com/foros/showthread.php?t=48074)

modulay

14-09-2007 16:20:18

Separar los bytes de una variable integer

Hola de nuevo gente.Aquí vengo con otro dilema :)
Tengo una variable entera que albergará un valor comprendido entre 0 y 32625 (15 bits eficaces).
Lo que quiero es sacarle esos dos bytes por separado para enviarlos como parámetros independientes.
Anduve cacharreando la ayuda de delphi pero no encontré nada potable
¿alguna idea?

Mick	14-09-2007 16:30:09

Hola,

Código:

var

 n:integer;

 b1,b2:char;

begin 

  n:= $EA03;

  b1:= PChar(@n)[0];

  b2:= PChar(@n)[1];

end;

Saludos

seoane

14-09-2007 16:31:10

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;

modulay

14-09-2007 16:40:01

Hey gracias por contestar tan rápido.
Anda de lujo.
Saludos.

modulay

14-09-2007 16:43:53

Seoane la forma que tú propones me resulta más familiar,algo he lidiado con el assembler...aunque ya me estaba poniendo a hacer cambios a string y demás warrerías afines jeej
Saludo

La franja horaria es GMT +2. Ahora son las 16:28:24.