uses Math Function HexToDec(S:String):string; var. A: array of string; i: integer; J: Variant; begin SetLength(A,Length(s)); j:=0; begin for i := Length(s) downto 1 ...
www.programmer-club.com.tw