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