Java integer.toString(int X, ENCODING_BASE) delphi karşılığı

[ilkeryesiloglu]

Merhaba,
Java dilinde,
private static final int ENCODING_BASE = 36;
private static final int COUNTER_RESET = 1296;

Integer.toString(COUNTER_RESET, ENCODING_BASE);

Şeklindeki bir kodun delphi karşılığını bulmaya çalışıyorum.
Sanırım verilen integer değişkenin 36'lık tabanda ([0..9][a..z]) karşılığını veriyor.
Örnek : 6334435967567765 karşılığı 1rqxdmey8n66k802 gibi.
(örnekteki değerler iki değerin gerçek karşılıkları değildir. sadece örnek olması açısından verilmiştir.)

Aynı işlemi delphide nasıl yapabilirim.
Hem java hem de delphiden anlayan arkadaşlar yardımcı olabilirlerse çok sevinirim.

İyi çalışmalar.

[t-hex]

Delphi'de tam karşılığı yoktu hatırladığım kadarıyla. Kod şöyle bir şey olabilir:

Kod: Tümünü seç

  function toString(number: integer; const radix: integer):string;
  const 
    digits : string = '0123456789abcdefghijklmnopqrstuvwxyz';
  var
    cur :integer;
  begin
    Result := '';
    cur := abs(number);
    while cur > 0 do begin
      Result := digits[(cur mod radix)+1] + Result;
      cur := cur div radix;
    end;
    if number < 0 then Result := '-' + Result;
  end;

[sabanakman]

Şu başlığa da bir göz at istersen.

viewtopic.php?f=19&t=15395&p=98013#p98013

[ilkeryesiloglu]

Teşekkürler,
Çok işime yaradı.
Sadece daha sonradan ilgilenecek arkadaşlar için bir noktayı hatırlatmam gerekiyor.

gönderdiğiniz kodda yer alan döngüde
while cur > 0 do begin
yerine
while cur > radix do begin

olarak kullanılmadır.