| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > ПРоверте плиз мой код проги! |
| Автор: Bobspott 22.2.2009, 20:55 |
| Вот задача: чтобы в строку вписывать число в 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 23.2.2009, 17:49 |
| Садись, пять. |
| Автор: Alexeis 23.2.2009, 19:30 |
| Модератор: Название темы должно отражать ее суть! |