For-loop from C to Delphi

[Medium]

Easy to forget, since Union seemed to use a zero base on Strings, which can lead to quite some confusion - I know that first hand, since I regularly forget it myself. But you're right of course

[Union]

Yes this was for PChar (see StrCopy). But the principle was to show the StrToInt() and Ord() function's results.

[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.

[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;

[DeddyH]

And what about ctoi('Z')?

[Union]

Ok, my solution works only for hex