Как задавать двоичные и 16ричные константы?

[Moly]

В принципе я могу и без них обойтись, но было бы хорошо иметь такую возможность. В паскале помню как то можно было, например
0x1Fh или как то еще а в Delphi этот номер не работает, скорее всего я его не правильно делаю. Кто знает подскажите, как воспользоваться этой возможностью?

[SuperVisor]

const hexa=$A43F

[Moly]

А чтоб единицы и нолики задействовать? Мне именно двоичка нужна...

Есть такая возможность в Delphi или нет?

[SuperVisor]

Не нашел ничего подобного. Скорее всего нет.

[SERG1980]

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

А чтоб единицы и нолики задействовать? Мне именно двоичка нужна...

Это как понять? В двоичном коде чтоли?

[Moly]

Да, чтоб единицы и нолики были на виду.

[JTG]

Двоичные константы нельзя, но можно присваивать значения в ассемблерных вставках

  asm
    mov foo, 1111111111111111b
  end;

[SuperVisor]

Тогда вопрос в догонку: можно ли присвоить в такой вставке произвольное значение, которое бы выражалось строкой, например? Не дружу с асмом, тем более в Delphi..

[JTG]

Author : DJ_Sannie
E-Mail : DJ_Sannie@yahoo.com
Date : March 30, 2004

function BinToInt( Binary: String ):Integer;
var
  i, j: Integer;
begin
  Result := 0;
  j := 1;
  for i := Length( Binary ) downTo 1 do
  begin
    Result := Result + StrToInt( Binary[i] ) * j;
    j := j*2;
  end;
end;

function BinToInt(Bin: array of boolean): cardinal; overload;
var
  i: integer;
  BinStr: string;
begin
  BinStr := '';
  for i := 0 to High(Bin) do
    if Bin[i] then
      BinStr := '1'+BinStr
    else
      BinStr := '0'+BinStr;
  Result := BinToInt(BinStr);
end;

function BinToInt64(Bin: array of boolean): Int64; overload;
var
  i: integer;
  BinStr: string;
begin
  BinStr := '';
  for i := 0 to High(Bin) do
    if Bin[i] then
      BinStr := '1'+BinStr
    else
      BinStr := '0'+BinStr;
  Result := BinToInt64(BinStr);
end;

function BinToInt64(Bin: string): Int64; overload;
var
  i: integer;
  j: Int64;
begin
  Result := 0;
  j := 1;
  for i := Length(Bin) downto 1 do
  begin
    if Bin[i] = '1' then
      Result := Result + j;
    j := j * 2;
  end;
end;

[SuperVisor]

Это-то понятно. Думал можно в asm конструкцию переменную как-нибудь пристроить...