|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
преобразование типов
Код:
var i:real; c:Char; begin c:='='; i:=real(c); end; а если так работает Код:
var i:integer; c:Char; begin c:='='; i:=integer(c); //выводит номер '=' end; Почему в первом случае не работает ??? Skype: Lotles-XXXX Последний раз редактировалось Lotles, 11.10.2009 в 19:52. |
#2
|
||||
|
||||
В чём проблема? Что вообще нужно? Нужен номер буквы из ASCII таблицы?
Код:
i := Ord(c); Код:
c := Chr(i); // ну да chr, вчера просто в час ночи писал... TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; Последний раз редактировалось AleD, 12.10.2009 в 03:58. |
#3
|
||||
|
||||
AleD,
Код:
c:=CHR(i); Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |