Как правильно записать код юникодного символа 0xAD программно для вывода?

[SkAndrew]

Добрый день!

Пожалуйста, мне необходимо в программе показать символ 0xAD шрифта Webdings. Если я пишу так WideChar($00AD)? то компилятор не компилирует проект. В чем моя ошибка. Как правильно записать код юникодного символа 0xAD программно для вывода? Спасибо всем.

[alexBlack]

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

Добрый день!

Пожалуйста, мне необходимо в программе показать символ 0xAD шрифта Webdings. Если я пишу так WideChar($00AD)? то компилятор не компилирует проект. В чем моя ошибка. Как правильно записать код юникодного символа 0xAD программно для вывода? Спасибо всем.

Показали бы лучше код. Все прекрасно компилируется:

procedure TForm1.FormPaint(Sender: TObject);
var R:TRect;
begin
   Font.Name := 'WebDings';
   Font.Size := 24;

   TextOutW(Canvas.Handle, 10, 10, WideChar($F021), 1);
   TextOutW(Canvas.Handle, 50, 10, WideChar($F022), 1);
   TextOutW(Canvas.Handle, 90, 10, WideChar($0021), 1);

   R := ClientRect;
   DrawTextW(Canvas.Handle, WideChar($00AD), 1, R, DT_CENTER);
end;

[SkAndrew]

Вы правы, в delphi 2007 эти символы начали выводится и компилироваться программа после сохранения проекта. Но вот, например символ $00A3 все равно не выводтся вместо него пустая рамка. почему? Спасибо.

[alexBlack]

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

Вы правы, в delphi 2007 эти символы начали выводится и компилироваться программа после сохранения проекта. Но вот, например символ $00A3 все равно не выводтся вместо него пустая рамка. почему? Спасибо.

Попробуйте $F0A3
Возьмите программу для просмотра шрифтов и посмотрите какие символы реализованы в этом шрифте. Передо мной, например OpenOffice в режиме "Вставка/Спецсимволы". В этом шрифте просто нет символов с кодами < $F021.

[SkAndrew]

Спасибо, ошибку понял.