Thema: Delphi HexToInt

Einzelnen Beitrag anzeigen

Draos

Registriert seit: 12. Aug 2008
42 Beiträge
 
Delphi 7 Enterprise
 
#13

Re: HexToInt

  Alt 9. Jun 2009, 08:34
Das er FF als -1 erkennt brauchste die Anzahl der möglichen Hexadezimalstellen.

Delphi-Quellcode:
 function pow(x,n:Integer):Integer;
 begin
  if n>1 then
   result:=x*pow(x,n-1)
  else result:=x;
 end;

var x :Integer;
    s :String;
begin
 s:='FF';

 x:=HexToInt(s);

 if x>pow(16,Length(s)-1) then
  x:=x-pow(16,Length(s));

end;
 //x ist der Integer-Wert
Nachteil: 15 ist nicht F sonder 0F
  Mit Zitat antworten Zitat