•  

ГлавнаяРабота с текстом и строками → Как перевести в 16-ричный код букву

Создано: 25.07.2010 20:58:16 · Исправлено: 25.07.2010 20:58:37 · Прочтений: 470


var
  Str: Char;
begin
  Str := 'В';
  Form1.Caption := Format('%x', [Ord(Str)]);
end;