Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.18;
Скачать: CL | DM;

Вниз

Обратная функция   Найти похожие ветки 

 
Ivolg ©   (2007-02-27 15:19) [0]

Привет. Существует обратная функция, функции IntToHex ? Например, при использовании функции:

Caption:=IntToHex(Ord("М"), 2);

В Caption выдается русская буквы "М" в Hex виде - "CC". Мне нужно, чтобы было наобарот. Вводишь букву\символ в Hex виде, а функция преобразовывает в символ, соответствущий введеной букву\символу.


 
Ega23 ©   (2007-02-27 15:26) [1]

Caption := Chr(StrToInt("$"+Edit1.Text))


 
Юрий Зотов ©   (2007-02-27 15:27) [2]

function HexToChar(HexCode: string): char;
begin
 Result := Char(StrToInt("$" + HexCode))
end;


 
Ivolg ©   (2007-02-27 15:46) [3]

Спасибо Вам большое. Теперь я понял в чем была проблема с функцией Chr.



Страницы: 1 вся ветка

Текущий архив: 2007.03.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
15-1171914181
Nic
2007-02-19 22:43
2007.03.18
Защита программ в Excel


2-1172660616
Вася Рогов
2007-02-28 14:03
2007.03.18
property BtnType: TIDBtnType;


15-1172050398
DVM
2007-02-21 12:33
2007.03.18
Вопрос знатокам FreeBSD


2-1172548934
Ivolg
2007-02-27 07:02
2007.03.18
ASCII в Unicode


15-1171725305
cawwa
2007-02-17 18:15
2007.03.18
delphi +qword (u64)