L li_zhifu Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-22 #3 var i:integer; c:Char; i:=Ord('A'); c:=Chr(i); c:='1'; i:=StrToInt(c);