Home

Page 332
Page 332
background image

Полезное 325

var

 of char;

begin

 ,

end;

Здесь для преобразования используется функция OemToChar, которая произ-

водит преобразование из DOS-кодировки в кодировку Windows. У этой

функции так же два параметра, которые выполняют те же задачи.

 Строковая переменная, содержащая текст, который надо перекодировать

в Windows-кодировку.

 Переменная, которая будет содержать результат преобразования.

Здесь я также рекомендую использовать промежуточную переменную, чтобы

не было лишних проблем.

Для перекодирования текста из

 системы в десятичную

напишем следующий код:

procedure

 TObject);

var

begin

end;

Вы, наверно, знаете, что для использования шестнадцатеричных чисел

в Delphi перед числом нужно указать знак $. Тот же знак нужно указывать и

для строковых переменных, и потом перекодировать их с помощью уже зна-

комой функции

 По этому знаку функция определит, что у нас

шестнадцатеричное число и корректно переведет его из строки в числовую

переменную.

В следующей строке кода полученное число просто переводится в строку, на

этот раз с использованием функции

 которая воспримет перемен-

ную index как десятичное число.

Как же сделать так, чтобы переменная index воспринималась как шестна-

дцатеричное число, которое мы туда записали? Delphi автоматически произ-

водит преобразования, и вы можете прибавлять к переменной index шест-
надцатеричные, восьмеричные или даже двоичные числа. Вся арифметика

будет работать корректно. На самом деле все арифметические операции

происходят в двоичном исчислении, даже если вы указываете числа в дру-
гом виде. Просто большинство процедур и функций Delphi и API Windows


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.