von zeichen in Dezimaler schreibweise und anders rum

[Sharky]

Delphi-Quellcode:

function Char2ASCIIString(aValue: char): string;
begin
  Result := IntToStr(Ord(aValue));
end;