Этот урок использует первый способ. Чтобы всё выводилось правильно, нужно в CreateFont к ANSI_CHARSET добавить RUSSIAN_CHARSET
Цитата:
ANSI_CHARSET or RUSSIAN_CHARSET
|
в процедуре Print заменить входной параметр со String на AnsiString. В общем, меняем все String на AnsiString, все PChar на PAnsiChar. Это приколы XE2 (юникод по-умолчанию) и их нужно знать.