Платные хостинги     Раскрутка сайта     Книги по программированию

из 16-ричного в строковый, Как перевести из 16-ричного в строковый

- Народ!Как перевести из 16-ричный параметр в строковый на Delphi?

- Я давным-давно делал на С/ASM. Если хочешь, пороюсь в своем старье.

- Параметер чего? Если просто 16тиричное значение, то его преобразуют функции HEX2INT, INT2HEX из RxLib

- В какой версии этот файл?Я скачал v2.75 - там нет...Подругому как-нибудь можно? или дайте ссылку на новую версию...

- Сорри обшибся маленько - функция Hex2Dec, модуль RxLib rxStrUtils.pas (или StrUtils.pas старых версий), обратная функция где-то там же

- Так в каком виде у тебя это 16-ричное число?Если в строке, ту у меня есть коротенькая функция, могу прям сюда запостить.В Delhpi можно делать так: $34DEF

- Ну у меня 16-ричное значение из реестра.Fantasist, напиши пожалуйста функцию...

- Ну и что, что из реестра? Ты как его получаешь, как строку или как целое.Не, функция у меня переводит строку типа: '10FE' в целое, и есть та которая из этого целого делает эту строку(обратная). Написал когда-то для небольших нужд.    Неужто самому их нельзя написать?Код function HexToDec(s:string):Longint;var res,i,tmp:longint;begin res:=0; for i := 1 to Length(s) do   s[i] := UpCase(s[i]); for i:=1 to Length(s) do  begin   case s[i] of    'A': tmp:=10;    'B': tmp:=11;    'C': tmp:=12;    'D': tmp:=13;    'E': tmp:=14;    'F': tmp:=15;    else tmp:=StrToInt(copy(s,i,1));   end;   res:=res*16+tmp;  end; Result:=res;end;function DecToHex(rem:LongInt):string;var res,c:string;begin while rem>15 do  begin   case (rem mod 16) of    15: c:='F';    14: c:='E';    13: c:='D';    12: c:='C';    11: c:='B';    10: c:='A';    else c:=IntToStr(rem mod 16);   end;   res:=c+res;   rem:=rem div 16;  end; case (rem) of  15: c:='F';  14: c:='E';  13: c:='D';  12: c:='C';  11: c:='B';  10: c:='A';  else c:=IntToStr(rem); end; res:=c+res; Result:=res;highlightSyntax('delphiYyMWJj','delphi');Написанны, в общем-то, криво, надо переделать.

- А из двоичного в строковый

- Ох... Опять. Ну что значит двоичный? Нету такого типа в Delphi. Там есть: interger, real, extended, string... etc.

- двоичный параметр из реестра...

- Ах из реестра... Тогда делаешь так: берешь бумажку и ручку, смотришь какая цифра первая, записываешь ее на бумажеку; смотришь какая вторая - записываешь ее тоже сразу после первой. Продолжи так до конца числа и у тебя получиться двоичный параметр в строковом виде!

- Ну, понятно что я имею ввиду? Ну ладно. Считай что я сделал предположение, и будем надееятся оно верно - это то, что тебе нужно.function _10to2(v:LongInt):string;var i:integer;begin  Result:='';  for i:=0 to 4*8 do    begin      Result:=char((v and 1)+48)+Result;      v:=v shr 1;    end;end;

- Держи :) Тупо до безобразия .. но главное работает :)из любой в любую (до 16 ричной .. если хочешь довбивай в arrSymb ещё буковок :) )используется метод чайника .. умеем переводить из десятичной в любую ..=>  переводим вначале число в десятичную .. а потом из десятичной в ту которую надо (это типа как оно работает :) )да .. ещё трабл .. насколько я понимаю эта хрень работает только с положительными числами .. знак '-' она не проглотит .. так что допиши сюда две строчки и тогда будет работать как надо .. :)function ConvertToDecimal(SrcNumb : String;SrcSystem : Integer) : integer;var   ind : Integer;   k : integer;   ch : char;   res : integer;   len : integer;   PowS: integer;beginResult:=-1;len:=Length(SrcNumb);res:=0;PowS:=1;for ind:=len downto 1 do    begin     ch := SrcNumb[ind];     k:=StrToIntDef(ch,-1);     if k=-1 then k:=Ord(ch)-Ord('A')+10;     res:=k*PowS+res;     PowS:=PowS*SrcSystem;    end;Result:=res;end;function ConvertTo(SrcNumb : String;SrcSystem : Integer;DestSystem : integer) : String;const   arrSymb='0123456789ABCDEF';var   res: integer;begin  Result:='';  res:=ConvertToDecimal(SrcNumb,SrcSystem);  if res=-1 then Exit;  while (res>=DestSystem) do   begin    Result:=arrSymb[(res mod DestSystem)+1]+Result;    res:=res div DestSystem;   end;  Result:=arrSymb[res+1]+Result;end;

- Eto pochemu je? Ochen interesnaia shtuka. Ia ee sdelal tak, chto ona perevodila do 36-richnoi sistemi schislenia (vse cifri i bukvi latinskogo alfavita). Ochen prikolno perevodit svoe imia iz 36-richnoi v 35-richnuiu, chto-to vrode shifrovki poluchaetsia. A esli do etogo eshe i perestanovochnim algoritmom vospolzovatsia...Nu ladno, pro delo. Ili opjat ja nichego neponimaiu, chto li... koroche:Код var   Int :integer;  HexStr: string;begin  Int='12345';  HexStr=IntToHex(Int); // v SysUtils est takaia veshend;highlightSyntax('delphiMmZhMD','delphi');  ili:Код  result=strtoint('$'+HexStr); // eto naoborothighlightSyntax('delphikMTY1OG','delphi');  nu a esli v Paskale:Код  val('$'+HexStr,result); //to je samoehighlightSyntax('delphiYyZGViNj','delphi');a po povodu dvoichnogo:Код function IntToBin(Value: LongInt;                  Digits: Integer): String;var i: Integer;begin Result:=''; for i:=Digits downto 0 do  if Value and (1 shl i)<>0 then   Result:=Result + '1'  else   Result:=Result + '0';end;highlightSyntax('delphik4YjUyZGZ','delphi');i naoborot:Код function BinToInt(Value: String): LongInt;var i,Digits: Integer;begin Result:=0; Digits:=Length(Value); while Copy(Value,1,1)='0' do  Value:=Copy(Value,2,Length(Value)-1); for i:=Digits downto 1 do  if Copy(Value,i,1)='1' then   Result:=Result+(1 shl (i-1));end;highlightSyntax('delphiZGRkOGIzZT','delphi');Izvini za gluposti, esli che ponial.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD