Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Функция обратная CHR

Виктор © (2013-08-15 07:40:00)
Здравствуйте! Подскажите пожалуйста, существует ли в Delphi функция которая возвращает ANSI значение символа в символьном выражении.
ORD не работает (возвращаемые значения зависят не от значения символа а от их количества. Так для символов ќ, ф, r и 1 значение ORD будет одинаковым - 32052412). А нужно аналог функции ASC из Foxpro (переделываю на Delphi прогу написанную в Foxpro).

Вот что эта функция делает:

Возвращает ANSI значение для самого левого символа в символьном выражении.

Синтаксис:
ASC(cExpression)
Параметры:
cExpression
Задает символьное выражение, содержащее символ, для которого функция ASC() должна возвратить ANSI значение. Все остальные символы в cExpression, следующие за первым, функция ASC() игнорирует.
Результат
Числовой
Комментарии:
ASC() возвращает позицию символа в таблице символов текущей кодовой страницы. Каждому символу соответствует уникальное ANSI значение в диапазоне от 0 до 255.
В FoxPro для MS-DOS с помощью реквизита ASCII Chart можно получить список символов и их ANSI значения.
Пример:
* В следующем примере выводятся символы от A до J и используется ASC(
* ), чтобы показать соответствующие ANSI значения.
STORE 'ABCDEFGHIJ' TO gcANSI && 10 characters
CLEAR
FOR nCOUNT = 1 TO 10
? SUBSTR(gcANSI, nCount,1) && Display a character
?? ASC(SUBSTR(gcANSI, nCount)) && Display ANSI value
ENDFOR

Anatoly Podgoretsky (2013-08-15 13:52:00) [1]

> Спасибо, всё время забываю что в 2009 сменили кодировку

Да как они посмели

Inovet (2013-08-15 11:17:00) [2]
> [3] Плохиш © (15.08.13 10:57)
> Какую кодировку?

Да просто взяли и сменили, делать им нечего.

Плохиш (2013-08-15 10:57:00) [3]

> сменили кодировку

Какую кодировку?

Виктор (2013-08-15 08:56:00) [4]
Спасибо, всё время забываю что в 2009 сменили кодировку

Ega23 (2013-08-15 08:10:00) [5]
Ord(AnsiChar("ќ"))

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »