delphi中十六进制整型转换成十进制整型的函数

下面是一个任意制式转换的源码。 const MinBase = 2; MaxBase = 36; function NumToStr (num, len, base: Integer; neg: Boolean; fill: char): string; // num = 要转换的数 // len = 生成字符串的最小长度 // base = 进制数 2 = 二进制 /