Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.05.2008, 20:57   #1
Hottabych
Форумчанин
 
Регистрация: 13.01.2008
Сообщений: 140
По умолчанию Шестнадцатеричные числа в делфи

Всем привет!
Код:
function DiskInDrive(Drive: Char): Boolean;
var
  ErrorMode: Word;
begin
  if Drive in ['a'..'z'] then Dec(Drive, $20);
  if not (Drive in ['A'..'Z']) then
    raise EConvertError.Create('Not a valid drive ID');
  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
    if DiskSize(Ord(Drive) - $40) = -1 then
      Result := False 
    else
      Result := True;
  finally
    SetErrorMode(ErrorMode);
  end;
end;
Помогите понять, что означают числа $20 $40 и почему не 32 64?
Hottabych вне форума Ответить с цитированием
Старый 03.05.2008, 00:10   #2
Febreze
Пользователь
 
Аватар для Febreze
 
Регистрация: 20.04.2008
Сообщений: 23
По умолчанию

Запусти калькулятор, переведи его в режим ИНЖЕНЕРНЫЙ, введи число 32 и нажми Hex, и ты увидишь число 20, тоже самое и с числом 64(40).

Теория: Каждый разряд может содержать шестнадцать значений (отсюда вообщем-то и название). Поэтому один разряд может принимать значения 1, 2, 3, 4, 5, 6, 7, 8, 9, А, В, С, D, E, F. Буква А соответствует цифре 10 в десятричиной системе, буква В - 11-ти и т.д. Например число 1А в шестадцатиричной системе равно 26 в десятичной. Надеюсь я доходчиво объяснил?

ЗЫ. Условным обозначением шестнадцатиричной системы могут быть символы: # (например #13), буква h (13h) или уже тебе знакомый символ бакса $($20)
"Стаж" работы в DELPHI с 18.04.2008

Последний раз редактировалось Febreze; 03.05.2008 в 00:13.
Febreze вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль, Turbo Pascal, PascalABC.NET 3 23.03.2008 21:49
сложить 2 числа vanDJ Microsoft Office Access 3 20.12.2007 08:57
Про числа Акашаев Нурлан Паскаль, Turbo Pascal, PascalABC.NET 6 12.12.2007 07:18
Числа полиндромы grerg Помощь студентам 3 28.11.2007 18:15
Двоичные и шестнадцатеричные числа Rembo Помощь студентам 9 13.11.2007 19:08