德爾福相當於從C

Question

德爾福相當於C utoa函數，這使我提供一個基數？我使用的是Delphi 2007，並且必須讀取一個使用utoa的基數爲32的文件。我寧願不重新發明輪子並介紹我自己的錯誤。它將以與IntToStr操作相同的方式運行，該操作使用基數10，因此IntToStr的等效utoa將爲utoa（值10）;

作爲示例，整數100應該返回值「34」。

Answer 1

嗯，我做了我的舊代碼的搜索，並發現這似乎工作！

function ItoA(value : Cardinal; Radix : Cardinal) : string; 
const 
    acCharRef : array [0 .. 35] of char 
    = (
    '0', '1', '2', '3', '4', '5', '6', '7', 
    '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', 
    'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 
    'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 
    'W', 'X', 'Y', 'Z' 
); 
var 
    nIndex : Integer; 
    szBuild : string; 
begin 
     {* Now loop, taking each digit as modulo radix, and reducing the value 
     * by dividing by radix, until the value is zeroed. Note that 
     * at least one loop occurs even if the value begins as 0, 
     * since we want "0" to be generated rather than "". 
     *} 
    szBuild := ''; 

    repeat 
    nIndex := value mod radix; 
    szBuild := acCharRef[nIndex] + szBuild; 
    value := value div radix; 
    until value = 0; 

    result := szBuild; 
end;