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

← →
Виктор (2013-08-15 07:40) [0]

Здравствуйте! Подскажите пожалуйста, существует ли в 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

← →
Ega23 © (2013-08-15 08:10) [1]

Ord(AnsiChar("ќ"))

← →
Виктор (2013-08-15 08:56) [2]

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

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

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

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

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

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

Функция обратная CHR Найти похожие ветки