Есть ли в Delphi эквивалент функции Asc()

← →
Temik (2003-12-03 14:16) [0]

Есть ли в Delphi эквивалент функции Asc() Visual Basic"а ? (оппозитное от Ord().)

← →
Илайдж © (2003-12-03 14:30) [1]

Chr?

← →
Temik (2003-12-03 14:35) [2]

Например как из "a" получить 64?

← →
Amoeba (2003-12-03 14:39) [3]

Ord("a") - и будет 64

← →
Temik (2003-12-03 14:44) [4]

Нет. Ord("a") пишет 97 :(

← →
Amoeba © (2003-12-03 14:52) [5]

Sorry, не посмотрел в справочник.
Если "а" - действительно будет 97.
Для "@" - 64

Тогда поясни, что принимает и выдает бейсиковская ф-ия Asc()

← →
BlackKing (2003-12-03 14:53) [6]

A Ord("A")=64

← →
BlackKing (2003-12-03 14:54) [7]

ili 65 :o)
vi zhe v tablicu kodov posmotrite u kakoj bukvi kakoj nomer.

← →
Temik (2003-12-03 14:54) [8]

Всё разобрался спасибо. Ты прав. Это А = 64. А а = 97.

← →
Darrin © (2003-12-03 14:54) [9]

>BlackKing (03.12.03 14:53) [6]
Ord("A")=65

← →
BlackKing (2003-12-03 14:55) [10]

ja zhe ispravilsja :o)

← →
Anatoly Podgoretsky © (2003-12-03 15:03) [11]

Чтобы получить ord("a") = 64 надо написать ord("a") - 33

← →
nikkie © (2003-12-03 15:27) [12]

>Anatoly Podgoretsky
ответ неверный. надо делать так:
function Ord(c: Char): Integer;
begin
Result := 64;
end;

← →
Temik (2003-12-03 15:38) [13]

Тогда уж так
function Ord(c: Char): Integer;
var
i:Integer
begin
for i := 1 to 255 do
if Chr(i) = c then result := ord(c)-33;
end;

← →
Anatoly Podgoretsky © (2003-12-03 15:41) [14]

Так не спрашивалось, речь шла только про "a", да и цикл тут неуместен.

← →
Temik (2003-12-03 15:42) [15]

2Anstoly: It"s a joke :)

Для шутки мало кода.

>Temik
твой код нерабочий. в отличие от моего

← →
Temik (2003-12-03 15:47) [18]

2Anatoly: точно. Фантазии мало.

← →
Algol (2003-12-03 19:27) [19]

2Temik

В коде куча ошибок,
Нужно так :

function Ord(c: Char): Integer;
var
i:Integer ;
begin
for i := 0 to 255 do
if Chr(i) = c then
begin
result := i-33;
break
end;
end;

:))

Появилась новая ошибка - нет ; после Break.

Есть ли в Delphi эквивалент функции Asc() Найти похожие ветки