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

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

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

Returns the ANSI value for the leftmost character in a character [D5, dBase, FoxPro]

BubbleGum © (2003-03-16 10:13:00)
Returns the ANSI value for the leftmost character in a character expression ?

BubbleGum (2003-03-16 19:48:00) [1]
Во какое решение данной проблемы!:
Ord(S[2]) shl 8 + Ord(S[1])
Вопрос снимаетца

sniknik (2003-03-16 19:28:00) [2]
http://delphibase.endimus.com/?action=viewfunc&topic=mathcalc&id=10092

BubbleGum (2003-03-16 18:19:00) [3]

> если нужно по всем то иши как вычисляется Хеш значение для
> строки (но это никак не аналог). или сам засумируй перебором
> по строке.

а примерчик мона ?

sniknik (2003-03-16 17:50:00) [4]
shl - bitwise shift left
каким образом? тут преобразований и сдвигов не нужно (либо не могу понять что тебе нужно) нужно приведение типа (char и byte для машины одинаковы)

извращенный в данном случае (но вполне рабочий вариант)
var a: char;
b: byte absolute a;
begin
a:= "А";
Label1.Caption:= IntToStr(b); //тоже самое 192 и никаких сдвигов
....
можно и через указатель тоже самое выдать и еще как, в С так вообще нет разници как представиш так и будет.

может я не понял и тебе нужно числовое представление всехсимволов? но ASC в фоксе дает значение первого как и все мои примеры.
если нужно по всем то иши как вычисляется Хеш значение для строки (но это никак не аналог). или сам засумируй перебором по строке.

BubbleGum (2003-03-16 17:35:00) [5]
через поле в табле в котором бинарная инфа , вяжется к другой табле по физическому номеру строки.
Ну так что бы связать нужно вычислить бинарное значение.
желательно не через SQL.

BubbleGum (2003-03-16 17:29:00) [6]

> sniknik © (16.03.03 17:24)

а на делфях через shl кто нить помнит как это будет выглядеть ?

sniknik (2003-03-16 17:24:00) [7]
:-))))) только прочитав заметил, надо читать написание:-)))

sniknik (2003-03-16 17:23:00) [8]
> полный аналог фоксовой функции ASC(), (счас будеш удивлятся) функция ASC()!
(выбирай правильного провайдера и можеш это в запрос вставлять, Jet, Vis.Fox.Drv) для MSSQL чуть изменено нассание на 2 буквы, добавили
SELECT ASC("АБС") //Jet
SELECT ASC("АБС") FROM 1sdbset //Vis.Fox.Drv
SELECT ASCII("АБС") //MSSQL
результат одинаков 192 (по первой букве)
для Delphi тот же результат даст ORD("АБС"[1]). и чего тебе не нравится?
если результат одинаков?

BubbleGum (2003-03-16 17:06:00) [9]
I>
> blackman © (16.03.03 16:44)

не матюкай сильно....
там в поле сидит бинарная хрень и из нее надо выцепить инфу а как не знаю ? там закарючки какие то ....<

blackman (2003-03-16 16:44:00) [10]
>код символа ANSI и необходимо определить номер символа
Сам-то понял, что спрашиваешь ?

BubbleGum (2003-03-16 16:30:00) [11]
поле символьное 2 байтное. нужно числовое выражение ....

BubbleGum (2003-03-16 16:07:00) [12]
есть символьное поле в таблице размерность 2 и необходимо определить номер символа, ORD не совсем подходит. нужен полный аналог фоксовой функции ASC().........

Anatoly Podgoretsky (2003-03-16 13:14:00) [13]
ORD

BubbleGum (2003-03-16 10:25:00) [14]
Как можно получить код символа ANSI таблицы ?

Наверх

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