Валентин Озеров - Советы по Delphi. Версия 1.0.6

Вы свободны в распространении Советов по Delphiна любом общественном (открытом) Web/FTP/Gopher сервере без обязательного получения разрешения автора, пока это распространение проводится АБСОЛЮТНО БЕСПЛАТНО . Если Вы хотите издать данный продукт на или совместно с любым носителем (например, на компакт диске с журналом или книгой, на любой коллекции программного обеспечения, совместно с другим программным обеспечением или любым другим дистрибутивным пакетом), требуется разрешение автора. Обычно разрешение может быть получено без проблем – свободно, за исключением некоторых особых случаев.

Валентин Озеров– единственый человек, который может дать разрешение на коммерческое использование и распространение справочной системы Советы по Delphi.

ЕСЛИ ВЫ НЕ ПОНИМАЕТЕ КАКОЙ-ЛИБО ЧАСТИ ДАННОГО ЛИЦЕНЗИОННОГО СОГЛАШЕНИЯ ИЛИ ВСЕГО СОГЛАШЕНИЯ В ЦЕЛОМ, СВЯЖИТЕСЬ СО МНОЙ ПО ЭЛЕКТРОННОЙ ПОЧТЕ ИЛИ ЛЮБЫМ ДРУГИМ СПОСОБОМ, ЧТОБЫ Я МОГ ОБЪЯСНИТЬ ИХ ВАМ.

Bероятно вы хотели бы иметь у себя самую последнюю версия "Советов по Delphi"? Нет ничего проще. Выберите подходящий способ, отправьте мне письмо и не забудьте указать Ваш email, ФИО и город проживания (исключительно для статистики). Вам будет посылаться раз в месяц небольшой файл (около 150Кб), который позволит установить справочную систему через Интернет.

Вам необходимо:

Подписаться на ежемесячную рассылку? (посылается небольшой файл setup.exe, производящий инсталляцию с сервера).

Прекратить подписку?

Oпределитесь и нажмите на соответствующую ссылку.

var

i: integer;

s: string;

begin

s:= '$' + ThatHexString;

i:= StrToInt(a);

end;

CONST HEX: ARRAY['A'..'F'] OF INTEGER = (10,11,12,13,14,15);

VAR str : String;

Int, i: integer;

BEGIN

READLN(str);

Int:= 0;

FOR i:= 1 TO length(str) DO

IF str[i] < 'a' THEN Int:= Int * 16 + ord(str[i]) – 48

ELSE Int:= Int * 16 + hex[str[i]];

WRITELN(Int);

READLN;

END.

Самое простое преобразование – через строку.

HexString:= Format('%0x', DecValue);

Строка представляет собой массив байтов в виде ASCII-символов. Необходимо организовать преобразование типов по аналогии с Delphi-функциями Ord и Chr.