Народ подскажите я, что то не то делаю или что то глючит?

← →
Aleks (2011-01-08 14:01) [0]

var
a:String;
i:Integer;

Begin
a:=Copy("12.22.3211",1,1);
i:=ord(a);
Edit1.Text:=IntToStr(i);
End;

У меня В Edit1.Text пишет 8233116 в чём глюк?????

← →
_Юрий (2011-01-08 14:15) [1]

> в чём глюк?????

В этом:

> i:=ord(a);

← →
Aleks (2011-01-08 14:21) [2]

Спасибо конечно, но не в Этом

i:=ord(a);

а в Этом
a:Char;

Begin
a:="12.22.3211[1];
Всё получилось, тема закрыта

← →
Anatoly Podgoretsky © (2011-01-08 14:27) [3]

> Aleks (08.01.2011 14:21:02) [2]

Что получилось, тебе что любое число получить, а какое до лампочки?

← →
Aleks (2011-01-08 14:33) [4]

Вообще то код первого символа в строке интересовал. Извини, я думал из программки видно.

← →
sniknik © (2011-01-08 14:53) [5]

> я думал из программки видно.
не думай. плохо получается.

> Вообще то код первого символа в строке интересовал.
ну так...
i:= ord(a[1]);
и никаких Copy

Но у тебя первый пример не должен компилироваться, там не обращения к символу.

← →
Aleks (2011-01-08 15:21) [7]

в том то и дело, что компелировался, поэтому ошибку и не видел.

Народ подскажите я, что то не то делаю или что то глючит? Найти похожие ветки