Typenumwandlungen

[Sherlock]

Lustigerweise gibt es ein IntToHex in Delphi, aber kein HexToInt.

Das hab ich mal selber geschrieben (ist aber auch trivial):

Delphi-Quellcode:

function HexToInt(HexNum: string): LongInt;
begin
  if HexNum = '' then
    Result := 0
  else
  begin
    if Pos('$', HexNum) < 1 then
      Result := StrToInt('$' + HexNum)
    else
      Result := StrToInt(HexNum);
  end;
end;

Edit: Dank rotem Kasten eigentlich fast überflüssig...

Sherlock