Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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


Aleks ©   (2011-01-08 14:01:00) 

var
a:String;
 i:Integer;        

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

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


Aleks   (2011-01-08 15:21:00) [1]

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


Anatoly Podgoretsky   (2011-01-08 14:54:00) [2]

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


sniknik   (2011-01-08 14:53:00) [3]

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

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


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

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


Anatoly Podgoretsky   (2011-01-08 14:27:00) [5]

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

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


Aleks   (2011-01-08 14:21:00) [6]

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

 i:=ord(a);

а в Этом
a:Char;
       

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


_Юрий   (2011-01-08 14:15:00) [7]


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

В этом:

>  i:=ord(a);


Наверх

Титульная страница Поиск, карта сайта Написать письмо