Delphi вывести код символа
Мастера, помогите.
Нужно получить ASCII-код символа, содержащегося в переменной s типа string.
Пишу
ShowMessage(«ASCII cod is «+IntToStr(Ord(s)) — получаю ошибку Incompatible
types, пишу что-нибудь типа
ShowMessage(«ASCII cod is «+IntToStr(Ord(«c»)) — все замечательно работает.
Почему это происходит и что я должен написать?
← →
object pascal ( 2002-07-28 12:17 ) [1]
← →
Юрий Зотов ( 2002-07-28 13:05 ) [2]
Хотите получить код символа — так символ и передавайте.
СИМВОЛ из строки, а не ВСЮ строку.
← →
msalex ( 2002-07-28 17:36 ) [3]
Чтоб было понятней:
.
ShowMessage(«ASCII cod is «+StringToASCII(s))
.
function StringToASCII(S:string):string;
var
i:integer;
begin
Result:=»»;
for i:=1 to length(S) do
begin
Result:=Result+IntToStr(Ord(S[i])+» «;
end;
end;
Источник
Программа «получить код символа»
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Программа печатает введенную сумму с правильной формой слов «рубли» и «копейки»
Задача: Вводится денежная сумма в виде десятичной дроби. Программа печатает введенную сумму с.
В каждом слове текста замените «а» на букву «е», если «а» стоит на четном месте, и заменить букву «б» на сочетание «ак»,
В каждом слове текста замените «а» на букву «е», если «а» стоит на четном месте, и заменить букву.
Из слов «Работа», «крест», «тон» составить фразу «Кто не работает, тот не ест» и определить ее длину
Из слова «Работа»,»крест»,»тон» составить фразу:»Кто не работает, тот не ест» и определить ее длину.
Решение
Тысячные числа исправлять к примеру с «1200» на «1 200», «12000» на «12 000» и т.д
Собственно числа исправлять к примеру с «1200» на «1 200», «12000» на «12 000», «120000» на.
После каждого гласного символа вставьте символ «*»
дана строка символов состоящая из произвольного текста на английском языке. разделена пробелами.
После каждого 9-го символа строки вставить букву «в»
Помогите пожалуйста решить задачу! Составить программу. Вставить букву «в» после каждого девятого.
Как запретить ввод второго символа «-» в StringGrid?
Здравствуйте, уважаемые форумчане. Решаю задачу: Формируется массив из 10 целых чисел путем.
Источник
Символы Delphi
Поговорим о том, как представляют символы Delphi и какого типа данных они могут быть. Чтобы хранить и обрабатывать символы, используют переменные, имеющие тип данных Ansichar и wideChar:
- Тип данных Ansichar представляется в виде некоторого набора ANSI-символов, который содержит в себе символы, кодирующиеся одним байтом (байт – восьмиразрядное двоичное число).
- Типу данных wideChar соответствует набор символов с кодировкой Unicode, который включает в себя символы, кодирующиеся двумя байтами.
Чтобы обеспечить совместимость с предыдущими версиями, пользуются типом данных Char, который эквивалентен типу Ansichar. В качестве значения переменной, имеющей символьный тип, может выступать любой отображающийся символ:
- какая-либо цифра,
- какой-либо знак препинания,
- любая буква русского или латинского алфавита,
а также специальный символ, к примеру, ‘новая строка’. Как полагается, переменная с символьным типом данных объявляется в разделе var (раздел объявления переменных). Общий вид инструкции объявления символов Delphi таков:
- name – означает переменную с символьным типом данных;
- char – специальное ключевое слово, которое обозначает символьный тип.
Пример 1.
family: char;
Как в случае любой переменной, переменная с символьным типом char приобретает значение в процессе выполнения инструкции присваивания. Допустим, если после того, как выполнена инструкция присваивания, переменная, имеющая тип char получает некоторое значение, то справа от знака присваивания := должно находиться выражение с типом char, к примеру, переменная с типом char, либо символьная константа – какой-либо символ, заключающийся в кавычках.
Пример 2. Пусть переменные a и b – переменные символьного типа. Как только выполнены инструкции
переменная a приобретает значение при помощи присваивания значения указанной константы, а переменная b – с помощью присваивания значения вышеупомянутой переменной a. Сравнение переменной с символьным типом char с какой-либо другой переменной, имеющей тип char, либо с символьной константой также возможно.
Это сравнение заключается в том, что каждому символу соответствует определенное число. Например, символ ‘о’ – меньшее число, чем символ У, символ ‘А’ – меньше число, чем символ ‘в’, символу V ставится в соответствие число меньше, чем а. В результате можно написать:
Как мы видим из исходного кода программы, основная работа выполняется при помощи процедуры обработки события OnActivate, формирующей и выводящей в поле метки (в нашем случае, Label1) необходимую таблицу. Событие OnActivate действует при активизации формы приложения. Вследствие этого, как только форма появилась на дисплее, происходит автоматическое выполнение процедуры TForm1.FormActivate. На рис. снизу представлен вид окна нашей программы:
Источник
Delphi вывести код символа
вот что получилось. может у кого будет какая идея.
создал форму
на форме 2 EditText
2 кнопки
2 Label
в первом EditText зажимаю клавишу Alt и набираю цифры 0154
появляется символ љ
нажимаю кнопку 1, в ней код
так вот в Label1 появляется число 1113
если это число вставить в функцию Chr(1113) то тогда появляется символ љ
как организовать преобразование кода 0154 в 1113 ?
WideChar не помогло?
Что Вы вообще пытаетесь сделать?
Сагу о X,Y,Z знаете?
зачем?
это разные коды.
в данном случае это код Unicode 0x0459 (U+0459) https://unicode-table.com/en/#0459
Что нужно знать каждому разработчику о кодировках и наборах символов для работы с текстом
часть 1
часть 2
давайте начну с корня. откуда это все.
есть таблица с логинами и паролями
пароль вида — 11223344 в таблице хранится в следующем виде: «–—™љњќџ «
первая цифра 1, код числа 49, к нему прибавляется порядковый номер(1) и дописывается 01 перед числом в итоге получаем 0150 (дефис)
вторая цифра 1, код числа 49, к нему прибавляется порядковый номер(2) и дописывается 01 перед числом в итоге получаем 0151 (тире)
третья цифра 2, код числа 50, к нему прибавляется порядковый номер(3) и дописывается 01 перед числом в итоге получаем 0153 (™)
четвертая цифра 2, код числа 50, к нему прибавляется порядковый номер(4) и дописывается 01 перед числом в итоге получаем 0154 (љ)
пятая цифра 3, код числа 51, к нему прибавляется порядковый номер(5) и дописывается 01 перед числом в итоге получаем 0156 (њ)
шестая цифра 3, код числа 51, к нему прибавляется порядковый номер(6) и дописывается 01 перед числом в итоге получаем 0157 (ќ)
седьмая цифра 4, код числа 52, к нему прибавляется порядковый номер(7) и дописывается 01 перед числом в итоге получаем 0159 (џ)
восьмая цифра 4, код числа 52, к нему прибавляется порядковый номер(8) и дописывается 01 перед числом в итоге получаем 0160 (неразрывный
так во нужно сделать окно авторизации по этому алгоритму.
Источник
Delphi вывести код символа
Как это можно распечатать в цикле?
т.е. как программно обратиться к делфи чтобы он например напечатал символ Alt+248
Пуск — Программы — Стандартные — Служебные — Таблица символов
(и не забывайте, что в разных шрифтах одни коды могут означать абсолютно разные символы!)
| в данной таблице у Ламда код U+03BB как его перевести в код Alt+? |
никак! Когда символ может быть набран через Alt
в той же строке (где U+) справа появляется ALT+.
Пройдитесь, по таблице, увидите.
p.s. у Вас Delphi c поддержкой Unicode ?
имхо, ещё можно в рантайме присваивать символ по его коду..
Как это можно распечатать в цикле?
т.е. как программно обратиться к делфи чтобы он например напечатал символ Alt+248
U — это возможно указание того, что юникод. Ну а после плюса идёт код символа в 16-ричной системе. После Alt нужно вводить десятеричное число, т.к. 03BB просто нужно из 16-ричной системы перевести в 10-ричную, но вряд ли оно вставится. Alt+XXX помойму ориентировано на символы с кодом от 0 до 255.
В ворде можно еще так символы вставлять: Вводим код символа 03BB и жмём Alt+X
перевел из 16 -ричной системы в 10-тичную
2082 -> 8322
Но все равно символ соответствующий U+2082 не отображается
Может кто нибудь еще знает как ввести с клавиатуры символ с кодом U+2082
| Многие опытные программисты знают |
Так я поставил новую версию. Юникод работает. Осталось только узнать как ввести символ (в таблице символов windows такого нет — нужен подстрочный индекс)
Источник
