For-loop from C to Delphi

[Union]

Oder kürzer Or shorter:

Delphi-Quellcode:

function ctoi(source: char): integer;
begin
   result := StrToInt('$'+source);
end;

function itoc(source: integer): char;
begin
   c := Format('%x', [source])[1];
end;