| Автор
| Сообщение |
|
|
|
Цитата |
|
Как можно прочитать в String формате 16-ричный код любого символа, например:
var
S:String;
begin
S:='пр';
...
ShowMessage(...); // тут должно отобразиться ef f0
end;
И если можно на примере как использовать функции HexToBin и BinToHex, чтоб можно было увидеть результат в текстовом формате |
|
| В начало |
|
 |
|
|
 |
 Gelios
Oracle-вый маньяк, Админ
Возраст: 37
Знак зодиака: 
Зарегистрирован: 10.03.2005
Сообщения: 6141
Откуда: Яблочный рай
|
|
|
Цитата |
|
смотрим хелп и видим там такой примерчик
The following example uses an edit control, a button, and a label on a form. When the button is clicked, the hexadecimal value of each character in the edit control is displayed in the label.
| Код: |
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],2) + ' ';
except
Beep;
end;
end;
end;
|
а примеры использования функций HexToBin/BinToHex можно посмотреть в исходниках VCL, а конкретней в файле %Delphi%\source\rtl\common\IniFiles.pas
_________________
нельзя давать всем всего, ибо всех много, а всего мало |
|
| В начало |
|
|
|
