Help na function
01/05/2003
0
Tenho essa function
function HexToInt(HexStr: string): Integer;
var
RetVar: Integer;
i: byte;
begin
HexStr := UpperCase(HexStr);
if HexStr[length(HexStr)] = ´H´ then
Delete(HexStr, length(HexStr), 1);
RetVar := 0;
for i := 1 to length(HexStr) do begin
RetVar := RetVar shl 4;
if HexStr[i] in [´0´..´9´] then
RetVar := RetVar + (byte(HexStr[i]) - 48)
else
if HexStr[i] in [´A´..´F´] then
RetVar := RetVar + (byte(HexStr[i]) - 55)
else begin
Retvar := 0;
break;
end;
end;
Result := RetVar;
end;
como disparo o gatilho pra rodar a mesma sendo que quero converter um numero hex para dec .... em uma ciaxa de texto
Grato.
:oops:
function HexToInt(HexStr: string): Integer;
var
RetVar: Integer;
i: byte;
begin
HexStr := UpperCase(HexStr);
if HexStr[length(HexStr)] = ´H´ then
Delete(HexStr, length(HexStr), 1);
RetVar := 0;
for i := 1 to length(HexStr) do begin
RetVar := RetVar shl 4;
if HexStr[i] in [´0´..´9´] then
RetVar := RetVar + (byte(HexStr[i]) - 48)
else
if HexStr[i] in [´A´..´F´] then
RetVar := RetVar + (byte(HexStr[i]) - 55)
else begin
Retvar := 0;
break;
end;
end;
Result := RetVar;
end;
como disparo o gatilho pra rodar a mesma sendo que quero converter um numero hex para dec .... em uma ciaxa de texto
Grato.
:oops:
Evdias
Curtir tópico
+ 0
Responder
Posts
01/05/2003
Spy
Usa essa funcao aqui que eh + simplesinha:
function HexToInt(const HexStr: string): longint;
var
iNdx: integer;
cTmp: Char;
begin
Result := 0;
for iNdx := 1 to Length(HexStr) do
begin
cTmp := HexStr[iNdx];
case cTmp of
´0´..´9´: Result := 16 * Result + (Ord(cTmp) - $30);
´A´..´F´: Result := 16 * Result + (Ord(cTmp) - $37);
´a´..´f´: Result := 16 * Result + (Ord(cTmp) - $57);
else
raise EConvertError.Create(´Illegal character in hex string´);
end;
end;
end;
E para ´desparar o gatilho´ eh soh chamar a funcao atraves de qualquer evento do tipo click de um botao por exemplo.
Espero ter ajudado.
[]´s
SPY
function HexToInt(const HexStr: string): longint;
var
iNdx: integer;
cTmp: Char;
begin
Result := 0;
for iNdx := 1 to Length(HexStr) do
begin
cTmp := HexStr[iNdx];
case cTmp of
´0´..´9´: Result := 16 * Result + (Ord(cTmp) - $30);
´A´..´F´: Result := 16 * Result + (Ord(cTmp) - $37);
´a´..´f´: Result := 16 * Result + (Ord(cTmp) - $57);
else
raise EConvertError.Create(´Illegal character in hex string´);
end;
end;
end;
E para ´desparar o gatilho´ eh soh chamar a funcao atraves de qualquer evento do tipo click de um botao por exemplo.
Espero ter ajudado.
[]´s
SPY
Responder
01/05/2003
Spy
como disparo o gatilho pra rodar a mesma sendo que quero converter um numero hex para dec .... em uma ciaxa de texto
Eskeci de dizer, o valor da funcao que coloquei fica em Result, eh soh colocar ela num caption ou num seila.text qualquer p/ ela retornar o valor :)
Té+
Responder
Clique aqui para fazer login e interagir na Comunidade :)