Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.119.133.228] |
|
Сообщ.
#1
,
|
|
|
Здравствуйте.
Ломаю голову не могу разобраться как повторить такое как на скрине. В Edit1 есть число 149561 его нужно разделить на 20 и перевести в HEX, чтобы потом получить в Edit2 1D36 Попробовал вот так, но как еще разделить на 20 не понимаю. procedure TForm.Button1Click(Sender: TObject); begin Edit1.Text := '149561'; Edit2.Text := IntToHex(StrToInt(Edit1.Text)); end; www img pictures |
Сообщ.
#2
,
|
|
|
Вот так будет правильно или нет ? Результат совпадает.
var s: integer; begin s := StrToInt(Edit1.Text); Edit2.Text := IntToHex(s div 31, 4); end; |
Сообщ.
#3
,
|
|
|
Edit2.Text := IntToHex(StrToInt(Edit1.Text) div 20,4); |
Сообщ.
#4
,
|
|
|
Цитата Krid @ Спасибо |