HexToInt

[janjan]

Komischerweise enthält Delphi zwar eine Funktionzur Umwandlung von Integer in Hex-Strings, eine Rückwandlung ist nicht vorgesehen. Nachdem ich mir sowas selber geschrieben habe, bin ich zufällig auf eine viel einfachere Lösung gestoßen:

Delphi-Quellcode:

function HexToInt(HexNum: string): LongInt;
begin
  Result:=StrToInt('$' + HexNum);
end;

---

Folgender Code ist noch von Clane "eingereicht" worden:

Delphi-Quellcode:

uses
Math;

function HexToInt(const HexWert:String):Integer;
var i:Integer;
s:String;
begin
Result:=0;
s:=UpperCase(HexWert);
for i:=1 to Length(s) do if (Ord(s[i]) in [0..47, 58..64, 71..255]) then
begin
Result:=-1;
Break;
end; // for i
if (Result=0) then for i:=0 to Length(s)-1 do
Result:=Result+(HexCharToWert(s[Length(s)-i])*Round(Power(16, i)));
end; // HexToInt

[edit=flomei]Clanes Quelltext hinzugefügt. Mfg, flomei[/edit]