Символ $ перед единицами и нулями

@Patsukin · Регистрация: 26.11.2015

Author24 — интернет-сервис помощи студентам

Что он означает? В листинге это $00010101. Он равен 65793 если перевести в Integer.
P.S. Код работать не будет т. к. вес пикселя в Bitmap 3 байта а не 4, свободная ячейка заполняется следующим пикселем, и увеличение указателя на 4 байт бессмысленно. Взято отсюда http://guildalfa.ru/alsha/node/14

Delphi

procedure Grayscale1(pBuf: pInteger; Count: integer);
var
  Color: integer;
begin;
  repeat;
    Color:=pBuf^;
    pBuf^:=((29 * (Color        and $FF)  //Blue
          + 150 * (Color shr 8  and $FF)  //Green
           + 77 * (Color shr 16 and $FF)  //Red
            ) shr 8
           ) * $00010101;
    dec(Count);
    inc(pBuf);
    until Count<=0;
  end;
 
procedure ShaBitmapToGrayscale1(Bitmap: TBitmap);
var
  p, q: pInteger;
begin;
  with Bitmap do begin;
    p:=ScanLine[Height-1];
    q:=ScanLine[0];
    if cardinal(p)>cardinal(q) then p:=q;
    Grayscale1(p, Height * Width);
    end;
  end;

@Joey · 01.10.2017, 20:06

Hexadecimal format (base 16). To specify a constant value in hexadecimal format, prepend it with a dollar sign ($). Thus, the hexadecimal $FF equals 255 decimal. Note that case is insignificant when using hexadecimal constants

Число в шестнадцатеричной системе счисления.

Сообщение от Patsukin

В листинге это $00010101. Он равен 65793 если перевести в Integer

Я так понимаю, Вы не умеете переводить шестнадцатеричные числа в десятеричные ("обычные")
$00010101 =
1 = 1 * 16^0 = 1
0 = 0 * 16^1 = 0
1 = 1 * 16^2 = 256
0 = 1 * 16^3 = 0
1 = 1 * 16^4 = 65536
0 = 1 * 16^5 = 0
0 = 1 * 16^6 = 0
0 = 1 * 16^7 = 0

Складываем: 1 + 0 + 256 + 0 + 65536 + 0 + 0 + 0 = 65793

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	01.10.2017, 20:06	2
	Hexadecimal format (base 16). To specify a constant value in hexadecimal format, prepend it with a dollar sign ($). Thus, the hexadecimal $FF equals 255 decimal. Note that case is insignificant when using hexadecimal constants Число в шестнадцатеричной системе счисления. Сообщение от Patsukin В листинге это $00010101. Он равен 65793 если перевести в Integer Я так понимаю, Вы не умеете переводить шестнадцатеричные числа в десятеричные ("обычные") $00010101 = 1 = 1 * 16^0 = 1 0 = 0 * 16^1 = 0 1 = 1 * 16^2 = 256 0 = 1 * 16^3 = 0 1 = 1 * 16^4 = 65536 0 = 1 * 16^5 = 0 0 = 1 * 16^6 = 0 0 = 1 * 16^7 = 0 Складываем: 1 + 0 + 256 + 0 + 65536 + 0 + 0 + 0 = 65793 0