conv.inc

一个编译器修改的例子

function StringToInt(str : string) : int;
function IntToString(i : int) : string;

function StringToReal(str : string) : real;
function RealToString(r : real) : string;

function IntToReal(i : int) : real;
function RealToInt(r : real) : int;

function IntToChar(i : int) : char;
function CharToInt(c : char) : int;