Hex2Str

[webaytek]

hextostr komutunun açıklamasını buldum tam compile ediodum ki

Kod: Tümünü seç

function getnum(h1: String): Integer;
var
d1: Integer;
begin
 h1:=lowercase(h1);
 if h1 = '0' Then d1 := 0;
 if h1 = '1' Then d1 := 1;
 if h1 = '2' Then d1 := 2;
 if h1 = '3' Then d1 := 3;
 if h1 = '4' Then d1 := 4;
 if h1 = '5' Then d1 := 5;
 if h1 = '6' Then d1 := 6;
 if h1 = '7' Then d1 := 7;
 if h1 = '8' Then d1 := 8;
 if h1 = '9' Then d1 := 9;
 if h1 = 'a' Then d1 := 10;
 if h1 = 'b' Then d1 := 11;
 if h1 = 'c' Then d1 := 12;
 if h1 = 'd' Then d1 := 13;
 if h1 = 'e' Then d1 := 14;
 if h1 = 'f' Then d1 := 15;
 result:=d1;
end;

function hextoint(hex: String): Integer;
var
 d: Integer;
 i: Integer;
 dez: Integer;
 h: String;
 dd: Integer;
begin
 i:=1;
 dez:=0;
 while i < length(hex)+1 do
 begin
   h:=copy(hex, i, 1);
   d:=getnum(h);
   dd:=d*round(power(16, length(hex)-i));
   dez:=dez+dd;
   inc(i);
 end;
 result:=dez;
end;

sonra da

Kod: Tümünü seç

showmessage(inttostr(HexToStr('4D555354414641'));

ok olması gerek ancak power function'u delphi5'te yoooookkkk
(lanet olsun delphi5'te herşey eksik)

[gkimirti]

StrToInt('$'+HexalString) ile daha kısa yoldan yapabilirsin
mesela StrToInt('$1FAC3E')...

[webaytek]

walla ne diim tşk. süper yaw ben de kodu component'ime gömmekle uğraşıyordum. büyük bi dertten kurtuldum - KOLAY GELSİN

[sadettinpolat]

çok emin değilim ama format fonksiyonu kullanılarak bu tür bir çevirme işleminin yapılıyor olması lazım gibi... x parametresi vardı galiba hex için..

[mege]

hextoint
viewtopic.php?p=14665#14665