 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
ПРоверте плиз мой код проги! на СС 
| Bobspott |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 22.2.2009 Репутация: нет Всего: нет |
Вот задача: чтобы в строку вписывать число в 10ой СС а програма преобразовывала его в 2ную СС , инвертировала у этого числа второй байт (справа) и на экран выводила уже результат (число) в 10ной СС)
procedure TForm1.Button1Click(Sender: TObject); var n1,n2:integer; begin n1 := StrToInt(Edit1.Text); n2 := n1 xor $0000FF00; Edit2.Text := IntToStr(n2); end; вот) |
|||
|
||||
Загрузка ...
| Poseidon |
|
|||
 Delphi developer  Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 53 Всего: 133 |
Садись, пять.
-------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
| Alexeis |
|
|||
 Амеба  Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 109 Всего: 459 |
Модератор: Название темы должно отражать ее суть!
-------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0444 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |