Delphi

Код символа delphi: Получение ASCII-кода символа

Delphi ascii код символа — Dudom

How can i convert string character (123-jhk25) to ASCII in Delphi7

2 Answers 2

If you mean the ASCII code for the character you need to use the Ord() function which returns the Ordinal value of any «enumerable» type

In this case it works on character values, returning a byte:

It depends on your Delphi version. In Delphi 2007 and before, strings are automatically in ANSI string format, and anything below 128 is an ASCII character.

In D2009 and later, things become more complicated since the default string type is UnicodeString. You’ll have to cast the character to AnsiChar. It’ll perform a codepage conversion, and then whatever you end up with may or may not work depending on which language the character in question came from. But if it was originally an ASCII character, it should convert without trouble.

Not the answer you’re looking for? Browse other questions tagged delphi or ask your own question.

Related
Hot Network Questions

To subscribe to this RSS feed, copy and paste this URL into your RSS reader.

site design / logo © 2020 Stack Exchange Inc; user contributions licensed under cc by-sa 4.0 with attribution required. rev 2020.1.10.35756

Этот список может помочь при использовании функций Asc и Chr . Таблица основана на ASCII Character Set

Управляющие символы (большинство непечатные; наиболее важные подсвечены жёлтым)

Символ (Обознач.)DecHexOctОписание
NUL000000Пустой символ
SOH101001Начало заголовка, = console interrupt
STX202002Начало текста, maintenance mode on HP console
ETX303003Конец текста
EOT404004Конец передачи, не тоже самое, что ETB
ENQ505005Запрос, связан с ACK; old HP flow control
ACK606006Подтверждение, очищает ENQ logon hand
BEL707007Звуковой сигнал (Воспроизводит стандартный «бииип» системным динамиком ПК в Windows )
BS808010Backspace, works on HP terminals/computers
HT909011Горизонтальная табуляция, перемещает к следующей позиции табуляции
LF100a012Перенос строки
VT110b013Вертикальная табуляция
FF120c014Смена страницы, извлекает страницу
CR130d015Возврат каретки
SO		140e016Shift Out, включает альтернативные символы
SI150f017Shift In, возобновляет символы по умолчанию
DLE1610020Экранирует управляющий символ
DC11711021XON, with XOFF to pause listings; «:okay to send».
DC21812022Управление устройством, код 2, block-mode flow control
DC31913023XOFF, with XON is TERM=18 flow control
DC42014024Управление устройством, код 4
NAK2115025Отрицательное подтверждение
SYN
22		16026Пустой символ для синхронного режима передачи
ETB2317027Конец передаваемого блока данных, не тоже самое, что EOT
CAN2418030Отмена строки, MPE echoes .
EM2519031Конец носителя, Control-Y interrupt
SUB261a032Замена
ESC271b033Экранирует, следующий символ не отображается
FS281c034Разделитель файлов
GS291d035Разделитель групп
RS301e036Разделитель записей, block-mode terminator
US311f037Разделитель полей
DEL127 7f177Delete (rubout), cross-hatch box

Печатные символы (стандартные)

СимволDecHexOctОписание
3220040Пробел
!3321041Восклицательный знак
«3422042Кавычка (» в HTML)
#3523043Решётка (знак числа)
$3624044Доллар
%3725045Проценты
&3826046Амперсанд
‘3927047Закрывающая одиночная кавычка (апостроф)
(4028050Открывающая скобка
)4129051Закрывающая скобка
*422a052Звёздочка, умножение
+432b053Плюс
,442c054Запятая
—452d055Дефис, минус
.462e056Точка
/472f057Наклонная черта (слеш, деление)
04830060Ноль
14931061Один
25032062Два
35133063Три
45234064Четыре
55335065 Пять
65436066Шесть
75537067Семь
85638070Восемь
95739071Девять
:583a072Двоеточие
;593b073Точка с запятой
623e076Знак больше
?633f077Знак вопроса
@6440100эт, собака
A6541101Заглавная A
B6642102Заглавная B
C6743103Заглавная C
D6844104Заглавная D
E6945105Заглавная E
F7046106Заглавная F
G7147107Заглавная G
H7248110Заглавная H
I7349111Заглавная I
J744a112Заглавная J
K754b113Заглавная K
L764c114Заглавная L
M774d115Заглавная M
N784e116Заглавная N
O794f117Заглавная O
P8050120Заглавная P
Q8151121Заглавная Q
R8252122Заглавная R
S8353123Заглавная S
T8454124Заглавная T
U8555125Заглавная U
V8656126Заглавная V
W8757127Заглавная W
X8858130Заглавная X
Y8959131Заглавная Y
Z905a132Заглавная Z
[915b133Открывающая квадратная скобка
925c134Обратная наклонная черта (обратный слеш)
]935d135Закрывающая квадратная скобка
^945e136Циркумфлекс, возведение в степень, знак вставки
_955f137Нижнее подчёркивание
`9660140Открывающая одиночная кавычка, гравис, знак ударения
a9761141Строчная a
b9862142Строчная b
c9963143Строчная c
d10064144Строчная d
e10165145Строчная e
f10266146Строчная f
g10367147Строчная g
h10468150Строчная h
i10569151Строчная i
j1066a152Строчная j
k1076b153Строчная k
l1086c154Строчная l
m1096d155Строчная m
n1106e156Строчная n
o1116f157Строчная o
p11270160Строчная p
q11371161Строчная q
r11472162Строчная r
s11573163Строчная s
t11674164Строчная t
u11775165Строчная u
v11876166Строчная v
w11977167Строчная w
x12078170Строчная x
y12179171Строчная y
z1227a172Строчная z
<1237b173Открывающая фигурная скобка
|1247c174Вертикальная черта
>1257d175Закрывающая фигурная скобка

1267e176Тильда (приблизительно)

Расширенный набор символов (ANSI) в русской кодировке Win-1251

Да, мы говорим о кодах ASCII. Мои пристрастия, я здесь не Дельфи.

unicode delphi ascii

7 ответов

6 Решение lkessler [2008-11-21 04:04:00]

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

Или вы можете перейти на Delphi 2009, который имеет встроенные процедуры кодирования и собственную библиотеку функций преобразования.

Позвольте получить несколько вещей прямо. Набор символов (кодировка) и кодировка символов — это две связанные, но разные концепции. Набор символов представляет собой абстрактный список символов с определенным кодом целочисленного символа. Затем существуют кодировки символов, которые в основном представляют собой алгоритм, описывающий, как символы представлены в байтах.

ASCII действует как набор символов и кодировка. Он использует 7 бит для выражения 128 символов (94 для печати). Unicode, с другой стороны, это набор символов, выражающий 1,114,112 кодовых точек. Существует несколько кодировок для представления строк Unicode, но наиболее примечательными являются UTF-8, UTF-16, UTF-16LE и UTF-32. Другими словами, один символ Unicode может быть представлен различными способами в зависимости от кодировок.

Как преобразовать символы Unicode в ascii-коды в delphi 7?

Я думаю, что этот вопрос можно было бы интерпретировать двумя способами.

У меня есть строка Unicode в некоторой кодировке, которая включает только символы ASCII для печати. Как преобразовать строку в байтовый массив ASCII-кодирования?

У меня есть строка Unicode в некоторой кодировке, которая также включает символы, не содержащие ASCII, такие как китайские символы. Как я могу кодировать строку в кодировку ASCII без потери информации, а затем декодировать ее обратно в исходную строку Unicode?

Если вы имеете в виду первое, вы можете загрузить строку Unicode в WideString, как говорит Осман, и

Если вы имеете в виду второй, вам понадобится общий алгоритм кодирования, например Base64. Вы можете использовать DCPBase64.pas, включенный в David Barton DCPcrypt v2 Beta 3.

Как работать с спец символами Delphi? — Хабр Q&A

Думаю, ваша задача более высокого уровня такова. Пользователи разрисовывают свои имена всякими там картинками, задача — убрать их.

Немного непонятно, с какой версией Delphi вы работаете, но, предположим, с 2010+.
Там string эквивалентно UnicodeString, 16-битной строке неограниченной длины, управляемой подсчётом ссылок средствами Delphi.
Юникод очень велик и будет расширяться, в идеале там может быть 1,15 млн. символов. Из них 120 тыс. уже занято.
Поэтому лучшим решением будет делать не чёрный список символов, а белый.

Качаем базу символов Unicode (есть где-то на unicode.org).
Делаем из неё фильтр по каким-нибудь признакам: например, буква/цифра/знак/комбинирующий/пробел и направление письма — либо слева направо, либо адаптирующееся.
Также для простоты исключаем символы с кодом 65536+ (с дополнительных плоскостей, они кодируются двумя WideChar).
Вот этим белым списком и пользуемся. Проходимся по строке и убираем все лишние.

Ответ написан

Судя по всему вы работаете с широкими символами типа WideString. Доподлинно мне такая функция не известна. Да и подобный финкционалитет тоже не требуется. Но вот следющий сценарий мог бы помочь.
1. Присвоить переменной типа AnsiString.
2. С помощью StringReplace() заменить все вопросы на пустую строку.
3. Обратное преобразование в Wide.

Ответ написан

Комментировать

если уже есть строка то, можно создать новую строку и посимвольно скопировать только те что входят в белый список, затем заменить всю строку, вот и получается спец символов нет, а вместо замены символа — замена строки.
если ввод в форму, то можно отсечь символы ещё на этапе введения хотя формально там получается тоже замена.

Ответ написан

Комментировать

нечитабельные символы имеют ASCII код < 32 . Получить код символа можно функцией Ord, остальные символы можно по ASCII таблице глянуть. Среди них есть псевдографика, но почти всё читабельное.
Короче, пробежаться в цикле и добавить все символы с кодом больше 32. В FAR или cmd можно набрать Alt+0 на дополнительной клавиатуре (вот не помню там намлок выключен или включен должен быть) alt+1, alt + 2… как раз отобразятся Ваши символы 🙂
Буби это alt + 4, ASCII код символа равен 4

Ответ написан

Комментировать

unicode — Получение значения char в Delphi 7

спросил

Изменено 8 лет, 11 месяцев назад

Просмотрено 3к раз

Я делаю программу в Delphi 7, которая должна кодировать строку Unicode в строку объекта html. Например, « ABCģķī » приведет к » ABCģķī »

Теперь две основные вещи:

  1. Delphi 7 не поддерживает Unicode, поэтому я не могу просто писать символы Unicode непосредственно в коде для их кодирования.
  2. Кодовые страницы состоят из 255 записей, каждая из которых содержит символ, характерный для данной кодовой страницы, кроме первых 127, одинаковых для всех кодовых страниц.

Итак — Как мне получить значение символа в диапазоне 1-255?

Пробовал Ord(Integer) , но он также возвращает значения далеко за пределы 255. В принципе, все в порядке (A возвращает 65 и так далее), пока моя строка не достигнет нелатинского юникода.

Есть ли другой способ возврата значения char? Любая помощь приветствуется

  • delphi
  • unicode
  • delphi-7
  • html-entities
  • html-encode

9

Советую избегать кодовых страниц как чумы.

Я бы рассмотрел два подхода к Unicode: WideString и UTF-8.

Широкие строки имеют то преимущество, что они являются «родными» для Windows, что помогает, если вам нужно использовать вызовы Windows API. Недостатками являются пространство для хранения и то, что они (как и UTF-8) могут потребовать нескольких WideChars для кодирования полного пространства Unicode.

UTF-8 обычно предпочтительнее. Как и WideStrings, это многобайтовая кодировка, поэтому для конкретной «кодовой точки» Unicode может потребоваться несколько байтов в строке для ее кодирования. Это проблема только в том случае, если вы выполняете много посимвольной обработки своих строк.

@DavidHeffernan комментирует (правильно), что WideStrings может быть более компактным в некоторых случаях. Однако я бы рекомендовал UTF-16 только в том случае, если вы абсолютно уверены, что ваш закодированный текст будет более компактным (не забывайте о разметке!), и эта компактность очень важна для вас.

4

В HTML 4 числовые ссылки на символы относятся к кодировке, используемой HTML. Указана ли эта кодировка в самом HTML через или внеполосно через заголовок HTTP/MIME Content-Type или другими способами, это не имеет значения. Таким образом, "ABCģķī" будет точным представлением "ABCģķī" , только если HTML использует UTF-16. Если бы HTML использовал UTF-8, правильным представлением было бы либо "ABCģķī" или "ABCģķī" вместо этого. Большинство других кодировок не поддерживают эти конкретные символы Unicode.

В HTML 5 числовые ссылки на символы содержат исходные значения кодовых точек Unicode независимо от кодировки, используемой HTML. Таким образом, "ABCģķī" будет представлен как "ABC#291;ķī" или "ABCģķī" .

Итак, чтобы ответить на ваш вопрос, первое, что вам нужно сделать, это решить, нужно ли вам использовать семантику HTML 4 или HTML 5 для числовых ссылок на символы. Затем вам нужно назначить данные Unicode для WideString (это единственный тип строки Unicode, изначально поддерживаемый Delphi 7), который использует UTF-16, затем:

  1. , если вам нужен HTML 4:

    A. Если кодировка HTML отличается от UTF-16, используйте WideCharToMultiByte() (или эквивалентную) для преобразования WideString в этот набор символов, затем циклически перебирайте полученные значения, выводя незарезервированные символы как есть, и ссылки на символы для зарезервированные значения, используя IntToStr() для десятичной записи или IntToHex() для шестнадцатеричной записи.

    B. если кодировка HTML — UTF-16, то просто прокручивайте каждый WideChar в WideString , выводя незарезервированные символы как есть и ссылки на символы для зарезервированных значений, используя IntToStr() для десятичной записи или IntToHex() для шестнадцатеричной записи.

  2. Если вам нужен HTML 5:

    A. Если WideString не содержит суррогатных пар, то просто перебрать все WideChar в WideString , вывод незарезервированных символов как есть и ссылок на символы для зарезервированных значений с использованием IntToStr() для десятичной записи или IntToHex() для шестнадцатеричной записи.

    B. в противном случае преобразуйте WideString в UTF-32 с помощью WideStringToUCS4String() , затем выполните цикл по полученным значениям, выводя незарезервированные кодовые точки как есть и ссылки на символы для зарезервированных кодовых точек, используя IntToStr() для десятичной записи или IntToHex() для шестнадцатеричной записи.

Если я правильно понял OP, я просто оставлю это здесь.

 функция Entitties(const S: WideString): строка;
вар
  I: целое число;
начинать
  Результат := '';
  для I := 1 до длины (S) сделать
  начинать
    если Word(S[I]) > Word(High(AnsiChar)) тогда
      Результат: = Результат + '#' + IntToStr(Word(S[I])) + ';'
    еще
      Результат := Результат + S[I];
  конец;
конец;

2

Зарегистрируйтесь или войдите в систему

Зарегистрируйтесь с помощью Google

Зарегистрироваться через Facebook

Зарегистрируйтесь, используя электронную почту и пароль

Опубликовать как гость

Электронная почта

Обязательно, но не отображается

Опубликовать как гость

Электронная почта

Требуется, но не отображается

Delphi — проверить, встречается ли символ Unicode в наборе символов?

Этот код хорошо работает с Delphi-7 (до тех пор, пока в Delphi не появилась поддержка Unicode):

 Значение := edit1. Text[1];
    
если Значение в ['м', 'ж'] то ...

‘м’, ‘ж’ — символы кириллицы

Но эта конструкция не работает с символами Unicode.
Пробую много чего, но не работает.
Я также попытался изменить типы значений на «Char» и «AnsiChar».

Не работает : 

 константа
  MySet : набор WideChar = [WideChar('м'), WideChar('ж')];
начинать
  Значение: = edit1.Text[1];
  если Значение в MySet, то...

Не работает : 

 если AnsiChar(Value) в ['м', 'ж'] то ...

Не работает : 

 если CharInSet(Value, ['м', 'ж']) то ...

Но это работает хорошо: 

 если (Значение = 'м') или (Значение = 'ж') то...

Есть ли возможность проверить символ UNICODE с помощью SET в современных версиях Delphi?
Или нужно проверять каждый символ отдельно?

Моя версия Delphi — 10. 4, обновление 2 Community Edition

  • Делфи
  • Юникод
  • Делфи-7

0

Тип набора Delphi может обрабатывать не более 256 значений, поэтому его нельзя использовать для обработки символов Unicode. Для обработки Unicode модуль System.Character предоставляет различные методы и помощники.

Для этого конкретного случая есть помощник IsInArray() символов, который вы можете использовать. Вместо объявления набора символов вам нужно будет объявить массив символов:

 вар
  ч: Чар;
  а: массив символов;
  с: строка;
начинать
  а := ['м', 'ж'];
  s := 'abcж';
  для ch in s do
    если ch.IsInArray(a), то...
конец;

Примечание. В Delphi XE7 появилась дополнительная языковая поддержка для инициализации и работы с динамическими массивами, а квадратные скобки также можно использовать для более простой инициализации массива. В контексте приведенного выше примера ['м', 'ж'] — это не набор, а массив расширенных символов.

10

проверить, встречается ли символ Unicode в наборе символов?

Вы имеете в виду набор Delphi?

В общем, невозможно иметь набор X , где базовый тип X имеет более 256 возможных различных значений. Таким образом, набор байта в порядке, но набор слова невозможен. Поскольку существует 256 * 256 различных значений широких символов, поэтому невозможно иметь набор широких символов. (Если бы это действительно было возможно, переменная такого типа набора имела бы размер 8 КБ. Это была бы необычно большая переменная.)

Поскольку не существует такого понятия, как «набор символов Unicode Delphi», вопрос «Как узнать, принадлежит ли символ набору символов Unicode Delphi» не имеет смысла.

Или вы просто имеете в виду математический набор?

Если это так, конечно, это возможно, но вы не можете использовать набор Delphi для представления математического набора символов.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *