Вывод НЕХ значения в Edit

Сейчас на форуме: hgdagon, asfa, bartolomeo (+4 невидимых)

Посл.ответ	Сообщение
sion Ранг: 5.3 (гость) Активность: 0.01↘0 Статус: Участник	Создано: 22 января 2007 12:54 · Личное сообщение · #1 Хочу вывести HEX значение в EDIT но выводится десятичное на Delphi. Есть какие нибудь функции, заранее спасибо.

DillerInc Ранг: 283.6 (наставник), 56thx Активность: 0.13↘0 Статус: Участник Author of GeTaOEP	Создано: 22 января 2007 13:00 · Личное сообщение · #2 sion пишет: Есть какие нибудь функции ...IntToHex. Учебники читаем?? ----- the Power of Reversing team
KpeHDeJIb Ранг: 21.9 (новичок) Активность: 0.02↘0 Статус: Участник	Создано: 22 января 2007 13:01 · Личное сообщение · #3 Ну ёмасе, в справке то уже никак не посматреть? Можно банально взять StrFmt
Hellspawn Ранг: 990.2 (! ! !), 380thx Активность: 0.68↘0 Статус: Модератор Author of DiE	Создано: 22 января 2007 13:01 · Личное сообщение · #4 sion пишет: sion быстро качай www.drkb.ru/ и не задавай глупых вопросов... ----- [nice coder and reverser]
v0id2k Ранг: 221.3 (наставник), 135thx Активность: 0.19↘0.07 Статус: Участник	Создано: 22 января 2007 13:04 · Личное сообщение · #5 Вот функция переводящая String в Hex: function StringToHex(Text: String): String; var i: Integer; begin Result := ''; for i := 1 to Length(Text) do Result := Result + IntToHex(Ord(Text[i]), 2); end; ----- xchg dword [eax], eax
MACKLIA Ранг: 279.1 (наставник) Активность: 0.16↘0 Статус: Участник wizard	Создано: 22 января 2007 17:19 · Личное сообщение · #6 procedure TForm1.Button1Click(Sender: TObject); var x:integer; begin x:=10; //число которое будет преобразованно в HEX edit1.Text := IntToHex(x,2) end; ----- Что один человек сделал , другой всегда сломать может...

Для печати