Размер числа

[NEoMASTERR]

Здравствуйте, дано число

var
  x:cardinal;
begin
  x:=123;
end;

Размер Cardinal = 4 байта, как, зная число, вычислить реальный размер занимаемого пространства? Я не хочу писать все 4 байта если там одни нули ($00 00 00 7B)

Моё решение:

var
  j:byte;
  x:cardinal;
begin
  j:=0;
  x:=maxdword;
  while x<>0 do
  begin
    x:=x div 256;
    Inc(j);
  end;
  messagebox(0,'Размер x = '+pchar(inttostr(j)),0,0);
end;

Есть ли вариант по проще?

[Человек_Борща]

Размер Cardinal = 4 байта, как, зная число, вычислить реальный размер занимаемого пространства? Я не хочу писать все 4 байта если там одни нули ($00 00 00 7B)

Никак. 4 байта это четыре байта. Размеры жестко заданы компилятором для зарезервироанных типов данных.

Если вы уверены что вам хватит и 2х байт, берите 2х байтовый тип.

переопределение типа переменной на этапе компиляции, в delphi, не возможно.

Но интереса ради можете написать функцию проверки которая проверит вхождение числа в диапазон типов и выдаст, в сколько байт оно помещается.

3 байта не существуют.

[NEoMASTERR]

Сообщение от Человек_Борща

Никак. 4 байта это четыре байта. Размеры жестко заданы компилятором для зарезервироанных типов данных.

Если вы уверены что вам хватит и 2х байт, берите 2х байтовый тип.

переопределение типа переменной на этапе компиляции, в delphi, не возможно.

В том и дело что мне не хватит 2х байт, просто при передаче по сети каждый байт на счету
И компиляция тут не при чем, мне надо узнавать в ходе работы приложения

[Аватар]

if x>65535 then 4 байта
else if>255 then 2 байта
else 1 байт

биты сто лет не нужны

ADD но при пересылке придется передавать размер числа в байтах

[NEoMASTERR]

Сообщение от Аватар

if x>65535 then 4 байта
else if>255 then 2 байта
else 1 байт

биты сто лет не нужны

ADD но при пересылке придется передавать размер числа в байтах

и лучше наверное

          case j of
           0..High(Byte)             : begin end;
           High(Byte)+1..high(word)  : begin end;
           High(word)+1..$FFFFFF     : begin end;
           $FFFFFF+1..high(dword)    : begin end;
          end;

А 3 байта?) и я знаю что надо передавать, вопрос был о другом, спасибо всем за помощь, остановился на своем же решении

[Аватар]

А 3 байта

так же, только лень считать как в десятичном, в hex так:

if x>$FFFFFF then 4 байта
else if x>$FFFF then 3 байта
else if>$FF then 2 байта
else 1 байт

[min@y™]

просто при передаче по сети каждый байт на счету

О каких объёмах данных идёт речь?

[NEoMASTERR]

разницы нет, минимизировать траффик, уменьшить нагрузку. Люблю оптимизацию)

С 12 килобайтного ответа я сократил до 4 кб, умножить это на миллион пользователей и неплохо так выходит)
Еще zlib в помощь, и конфетка будет

[Человек_Борща]

Еще zlib в помощь, и конфетка будет

Из 4х сделает 6 или 8.

[NEoMASTERR]

Сообщение от Человек_Борща

Из 4х сделает 6 или 8.

да что ж здесь одни критики собрались, ну 6 так 6 будет, ниче страшного, уберу.
Помимо чисел в пакете еще и строки