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

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

← →
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

---

← →
Anatoly Podgoretsky ©   (2011-01-08 14:54) [6]

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

---

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

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

---

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

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



Память: 0.46 MB
Время: 0.004 c