function UC_DToOther(D,scale:Int64):String;
//十进制转其它进制，SCALE为进制数，2至36
var
remain:Int64;
begin
if (scale < 2) or (scale > 36) then
begin
Result := 'Error';
Exit;
end;
Result := '';
While D <> 0 do
begin
remain := D mod scale;
D := D div scale;
if remain > 9
then Result := Chr(remain+55) + Result
else Result := Chr(remain+48) + Result;
end;
end;