Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c