В более ранних версиях Delphi я мог использовать
s:=chr(153);
получить фирменный символ в строке. В Delphi 2010, который не работает больше, возможно, чтобы сделать с unicode. Что эквивалентная строка кода должна поместить символ ТМ в мою строку?
Я почти уверен, что chr (153)
- это «Ö» ( Кодовая страница 437 ), подождите, это «r» ( EBCDIC 037 ).
Фактически chr (153)
не определен, если вы также не укажете используемую кодовую страницу.
Именно поэтому вам следует использовать Unicode .
В Википедии есть страницы для большинства символов Юникода , и для них есть кодовая точка Юникода .
Существует простой символ товарного знака с кодом Unicode U + 2122 (Delphi: Chr ($ 2122)
или # $ 2122
).
Существует также зарегистрированный символ товарного знака с кодом Unicode U + 00AE (Delphi: Chr ($ 00AE)
или # $ 00AE
).
На сайте unicode есть список диаграмм , где вы можете найти все символы, но нужно время, чтобы привыкнуть к их поиску (так как количество диаграмм немного велико ).
Простой символ товарного знака является частью буквоподобных символов .
Обозначение зарегистрированного товарного знака является частью приложения latin-1 .
- Джерун
Чтобы узнать кодовую точку Unicode для данного символа, откройте Accessories -> System Tools -> Character Map, выберите шрифт Unicode, найдите нужный символ, в левом нижнем углу приложение покажет код Unicode.
in html its ™ try using it on http://code.cside.com/3rdpage/us/unicode/converter.html
В D2010 я могу сделать это:
s := '™' + chr(8482) + #8482; // yields 3 subsequent TM symbols
Результат: ™ блока
Вот хорошая статья, написанная самим Джоэлом - я перечитал ее только сегодня.
http://www.joelonsoftware.com/articles/Unicode.html
Это символ U + 2122 ( http://www.fileformat.info/info/unicode/char/2122/index.htm ). Я давно не использовал Delphi, но прежде всего вы должны попытаться ввести символ напрямую (возможно, используя утилиту Character Map, такую как charmap.exe или BabelMap в Windows). Это легче читать, чем что-либо другое.
Согласно кодовой таблице Unicode для «буквоподобных символов» символом TM является Unicode U + 2122. Я недостаточно знаю Delphi, чтобы знать, как превратить это в символ - возможно,
s := chr(8482);
? (8482 - это десятичное число для шестнадцатеричного 2122.)
В качестве альтернативы, просмотрев эту страницу , вы можете попробовать:
s := #$2122;