Код символа!

← →
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-тиричной

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

:)

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