Конференции:  3D графика Delphi Игры Бизнес Потрепаться PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
<<<    Конференция "Delphi"   >>>
SDW_syscoder [2003-12-01 08:56:23]
Преобразование HEX-кода в ASCII
Уважаемые 'Мастерки' & 'Подмастерья', киньте кто-нибудь функцию перевода HEX-кода, например, [$82] в ASCII-код [В] (русская), т.к. стандартная функция Chr(X:byte):Char переводит данный код в какую-то галиматью(лажу).

ArS [2003-12-01 20:39:41]    [1]
function HexToInt(s: string): Longword;
var
 b: Byte;
 c: Char;
begin
 Result := 0;
 s := UpperCase(s);
 for b := 1 to Length(s) do
 begin
   Result := Result * 16;
   c := s[b];
   case c of
     '0'..'9': Inc(Result, Ord(c) - Ord('0'));
     'A'..'F': Inc(Result, Ord(c) - Ord('A') + 10);
     else
       raise EConvertError.Create('No Hex-Number');
   end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(IntToStr(StrToHex('AAF1'))); // > 43761
end;



{*************************************************}


procedure HexToInt(s: string): Integer;
begin
 Result := StrToInt('$' + s);
end;

{*************************************************}

function HexToInt(strHexValue : string) : Integer;
var
c,l : integer;
begin
 Val(strHexValue, l, c);
 Result := l;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(IntToStr(HexToInt('$EAD1')));
end;

SomeOne [2005-11-21 08:59:15]    [2]
да


ПОДПИСАТЬСЯ НА ТЕМУ

E-mail
7+8?



приветя улыбаюсьхадаподмигиваюя тащусьмое почтениесчастливоцелуюбухаемужас
не понялплачуфупечальзлойстесняюсьсогласеннетгыкурю
суперязыкмузонпыворыдаю


Ваше имя: 
     Осталось: 

 

Допускается форматирование текста:
[•B]полужирный[B•] [•I]наклонный[I•] [•U]подчеркнутый[U•] [•‹]URL картинки[›•].
Для кода программ используйте [•¤] код программы [¤•]
Количество открывающих и закрывающих тэгов форматирования текста должно быть равным, иначе форматирование не осуществится.


Adelavida Link       Рейтинг@Mail.ru