Home

Page 331
Page 331
background image

324

Глава 7

begin

end;

Кодировка:

 исчисления:

 система

-> j •

 система

 система

  7 . 1 . Форма будущей программы

Здесь мы объявляем одну переменную s типа массива символов. Эта пере-
менная будет использоваться в качестве промежуточного хранилища преоб-
разованных данных.

Для преобразования используется

 CharToOem. У этой

функции есть два параметра.

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

в

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

Оба параметра должны иметь тип pchar, поэтому для первого из них мы

используем преобразование, а в качестве второго параметра используется
массив символов, который сам по себе имеет тип

 и нет необходимо-

сти приводить его к другому типу. После выполнения функции CharToOem,

результат выполнения (переменная s) присваивается строке ввода DOSEdit.

Зачем я использовал промежуточную переменную? Неужели нельзя было сра-
зу указать в качестве второго параметра функции CharToOem значение

pchar (DOSEdit. Text)? Можно, но нежелательно. Дело в том, что функция

будет стабильно работать только тогда, когда параметр для хранения результа-
та будет иметь тип PChar. Преобразование других форматов для хранения ре-

зультата нежелательно использовать, потому что функция может вернуть
ошибку или пустую строку. Именно поэтому я советую всегда использовать

промежуточную переменную в виде массива символов, как в данном примере.

Для обратного преобразования напишем следующий код:

procedure

 TObject) ;


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

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