Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

Код символа!   Найти похожие ветки 

← →
BlackLord2003 ©   (2004-04-07 19:13) [0]

Привет! Возникла такая проблема. Как отображать код символа (#21 например), около которого находится каретка в SynEdit"е?

---

← →
fatal ©   (2004-04-07 21:40) [1]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Label1.Caption:=IntToStr(ord(Key));
end;

Это имелось ввиду?

---

← →
BlackLord2003 ©   (2004-04-09 18:39) [2]

Маленько не то! Тут отображается номер символа, а мне нужен код!

Пример:
Символ: !
Номер сивола: 33
Код символа: #21

---

← →
clickmaker ©   (2004-04-09 18:43) [3]

Код символа у него как раз #33. Ну или #$21, если уж в 16-тиричной

---

← →
WebErr ©   (2004-04-09 18:48) [4]

> Номер сивола: 33
> Код символа: #21

:)

---

← →
default ©   (2004-04-09 18:56) [5]

IntToHex(Ord(Symbol), Byte(Ord(Symbol) > 15) + 1)
если ноль спереди не нужен когда коду достаточно 1 символа

---

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

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

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