Problem mit HexToDez

[Nils_13]

Ich habe ein riesen Problem:
4C --> 76 korrekt
21 --> 0 falsch
0C --> 0 falsch

Der Code hat sich nicht geändert:

Delphi-Quellcode:

function TfrmMain.HexToDez(s : String) : Integer;
var c : Integer;
    l : Integer;
begin
  Val('$'+s, l, c);
  Result := l;
end;

Der Aufruf von HexToDez sieht so aus:

Delphi-Quellcode:

if Copy(line, j, 4) = 'int ' then
begin
  tmp := Trim(Copy(line, j+4, MaxInt)) + ' ';
  k   := 1;
  while tmp[k] in ['0'..'9', 'A'..'F', 'a'..'f'] do
    inc(k);
  line := Copy(line, 1, j+3) + Copy(Tmp, 1, k-1);
  asd  := HexToDez(line);
  A.Lines[i] := IntToStr(asd);
end;