Цитата:
Сообщение от angvelem
Если оно целое, зачем проверять знак? SHR 8 не поможет?
|
Целое знаковое
Сделал так:
Код:
var
foo: Integer;
begin
foo := $FFFFFF;
foo := (((foo and $800000) shr 23)*$FF000000) or foo;
ShowMessage(inttostr(foo));
З.Ы. Bargest, прикольные решение