Dez2Hex Converter

[iNvIcTUs oRCuS]

Versuch mal den Wert "-1" in das Dezimalfeld zu kopieren...
Oder mal den Wert "FFFFFFFF" ins Hex Feld...

Oder einfach so lösen...
Deckt zudem auch das 64 Bit Spektrum ab...
Wohlgemerkt, auch nur vorzeichenbehaftet...

Delphi Code

IntToHex(StrToInt64(Edit1.Text), 16)

---

Vorzeichenlos könntest Du das Ganze auch so lösen...

Delphi Code

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

function Unsigned64(StrValue:String; var uValue:UInt64 ):Boolean; var Start,Base,Digit:Integer; n:Integer; Nextvalue:UInt64; begin result := false; Base := 10; Start := 1; StrValue := Trim(UpperCase(StrValue)); if StrValue='' then exit; if StrValue[1]='-' then exit; if StrValue[1]='$' then begin Base := 16; Start := 2; if Length(StrValue)>17 then // $+16 hex digits = max hex length. exit; end; uValue := 0; for n := Start to Length(StrValue) do begin if Character.IsDigit(StrValue[n]) then Digit := Ord(StrValue[n])-Ord('0') else if (Base=16) and (StrValue[n] >= 'A') and (StrValue[n] <= 'F') then Digit := (Ord(StrValue[n])-Ord('A'))+10 else exit;// invalid digit. Nextvalue := (uValue*base)+digit; if (Nextvalue<uValue) then exit; uValue := Nextvalue; end; result := true; // success. end; function ConvertStr(Value:String):UInt64; begin if not Unsigned64(Value,result) then raise EConvertError.Create('Keinen gültigen Wert eingegeben'); end;

---

Aufgerufen wirds dann z.B. so...

Delphi Code

Edit1.Text:= IntToHex(ConvertStr(Edit1.Text), 8);

---