For-loop from C to Delphi

[DeddyH]

I tried to translate the two posted functions:

Delphi-Quellcode:

function ctoi(source: char): integer;
begin
  if (source >= '0') and (source <= '9') then
    Result := Ord(source) - Ord('0')
  else
    Result := Ord(source) - Ord('A') + 10;
end;

function itoc(source: integer): char;
begin
  if (source >= 0) and (source <= 9) then
    Result := Chr(Ord('0') + source)
  else
    Result := Chr(Ord('A') + source - 10);
end;

Untested, use at your own risk.