Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > str to hex

Автор: EDuard 21.11.2005, 16:52

Привет!

Как можно превести строку в шестнадцетиричную стсьему счисления smile

Автор: _hunter 21.11.2005, 17:02

примерно так:
http://forum.vingrad.ru/index.php?showtopic=71105

Автор: EDuard 22.11.2005, 14:55

Насколько я разобрался, там везде говорится о том как перевести строку цифр в шестнадцетеричную ситему, а можно ли любой символ строки туда конвертировать? а лучше всю строку.

Автор: _hunter 22.11.2005, 15:04

а чем, по твоему, любой символ строки отличается от числа?

Автор: Snowy 22.11.2005, 15:05

Код


function StringToHex(s: string):string;
var
  i: integer;
begin
  result:='';
  for i:=1 to Length(s) do
    result:=result+IntToHex(ord(s[i]),1);
end;

Автор: EDuard 28.11.2005, 19:45

Snowy, а можно проделать обратное преобразование?

Автор: Snowy 28.11.2005, 20:47

Можно.

Код


function HexToString(s:string):string;
var
  i,v: integer;
begin
  result:='';
  for i:=1 to (Length(s) div 2) do
    if TryStrToInt('$'+copy(s,i*2-1,2),v) then
      result:=result+chr(v);
end;