Any one can see in dec2hex codes ??

[DYNET]

By this code i m getting perfect result till 16 th digite after 20th digit it not convert to hex any idea

Public Function dec2hex(ByVal dec As String) As String
        Dim str As String = Nothing
        Dim num2 As Double
        Dim i As Double = Double.Parse(dec)
        Do While (i > 0)
            Dim str2 As String
            num2 = (i Mod 16)
            If (num2 = 10) Then
                str2 = "a"
            ElseIf (num2 = 11) Then
                str2 = "b"
            ElseIf (num2 = 12) Then
                str2 = "c"
            ElseIf (num2 = 13) Then
                str2 = "d"
            ElseIf (num2 = 14) Then
                str2 = "e"
            ElseIf (num2 = 15) Then
                str2 = "f"
            Else
                str2 = num2.ToString
            End If
            str = (str2 & str)
            i = ((i - num2) / 16)
        Loop
        Return str.ToUpper
    End Function

I M LOOKING FOR LIKE THIS

DEC :12345678901234567890
HEX : AB54A98CEB1F0AD2

Thanks in Advance

[pai_d]

you want make/exercise functions that convert decimals to hex,
or you want to convert dec to hex?

maybe this suit your needs

[dest]

Wrong way. Use bitwise AND with FF.

[Victor]

From Embarcadero SYSUTILS.PAS

Code fragment:

const
  TwoHexLookup : packed array[0..255] of array[1..2] of Char =
  ('00','01','02','03','04','05','06','07','08','09','0A','0B','0C','0D','0E','0F',
   '10','11','12','13','14','15','16','17','18','19','1A','1B','1C','1D','1E','1F',
   '20','21','22','23','24','25','26','27','28','29','2A','2B','2C','2D','2E','2F',
   '30','31','32','33','34','35','36','37','38','39','3A','3B','3C','3D','3E','3F',
   '40','41','42','43','44','45','46','47','48','49','4A','4B','4C','4D','4E','4F',
   '50','51','52','53','54','55','56','57','58','59','5A','5B','5C','5D','5E','5F',
   '60','61','62','63','64','65','66','67','68','69','6A','6B','6C','6D','6E','6F',
   '70','71','72','73','74','75','76','77','78','79','7A','7B','7C','7D','7E','7F',
   '80','81','82','83','84','85','86','87','88','89','8A','8B','8C','8D','8E','8F',
   '90','91','92','93','94','95','96','97','98','99','9A','9B','9C','9D','9E','9F',
   'A0','A1','A2','A3','A4','A5','A6','A7','A8','A9','AA','AB','AC','AD','AE','AF',
   'B0','B1','B2','B3','B4','B5','B6','B7','B8','B9','BA','BB','BC','BD','BE','BF',
   'C0','C1','C2','C3','C4','C5','C6','C7','C8','C9','CA','CB','CC','CD','CE','CF',
   'D0','D1','D2','D3','D4','D5','D6','D7','D8','D9','DA','DB','DC','DD','DE','DF',
   'E0','E1','E2','E3','E4','E5','E6','E7','E8','E9','EA','EB','EC','ED','EE','EF',
   'F0','F1','F2','F3','F4','F5','F6','F7','F8','F9','FA','FB','FC','FD','FE','FF');


function _IntToHex(Value: UInt64; Digits: Integer): string;
var
  I32    : Integer;
  I, J   : UInt64;
  P      : Integer;
  NewLen : Integer;
  Sb     : TCharArray;
begin
  NewLen := 1;
  I := Value shr 4;
  while I > 0 do
  begin
    Inc(NewLen);
    I := I shr 4;
  end;
  if Digits > NewLen then
  begin
    SetLength(Sb, Digits);
    for I32 := 0 to (Digits - NewLen) - 1 do
      Sb[I32] := '0';
    P := Digits - NewLen;
  end
  else
  begin
    SetLength(Sb, NewLen);
    P := 0;
  end;
  I := Value;
  while NewLen > 2 do
  begin
    J := I and $FF;
    I := I shr 8;
    Dec(NewLen, 2);
    Sb[P + NewLen] := TwoHexLookup[J][1];
    Sb[P + NewLen + 1] := TwoHexLookup[J][2];

  end;
  if NewLen = 2 then
  begin
    Sb[P] := TwoHexLookup[I][1];
    Sb[P+1] := TwoHexLookup[I][2];
  end
  else
    Sb[P] := TwoHexLookup[I][2];

  Result := String.Create(Sb);
end;

Using:

procedure TForm1.FormCreate(Sender: TObject);
var i: int64;
    s: string;
begin
    i:=12345678901234567890;
    s:=_inttohex(i,30);
end;

Result:

s:='00000000000000AB54A98CEB1F0AD2'

[DYNET]

@Victor

Thanks sir for your replay can u give me in vb.net

Regards
DYNET

[Victor]

Originally Posted by DYNET

@Victor

Thanks sir for your replay can u give me in vb.net

Regards
DYNET

sorry I haven't. Rewrite it. Not hard.

[DYNET]

Originally Posted by Victor

sorry I haven't. Rewrite it. Not hard.

No problem I will make it IN VB

Regards
DYNET

[sanje]

Do you want in same platform or different ?

[DYNET]

Yes need on same platform
AS given in my example codes