Скачать: CL | DM;

Есть ли в 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 :)

---

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

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

---

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

>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;

:))

---

← →
Amoeba ©   (2003-12-04 13:43) [20]

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

---

← →
zapped ©   (2003-12-04 14:04) [21]

2Amoeba © (04.12.03 13:43) [20]
это не ошибка, перед end`ом точку с запятой можно опускать

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.012 c