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

C# (C Sharp) veya Java ile ilgili konuları buraya yazabilirsiniz.
Cevapla
ilkeryesiloglu
Üye
Mesajlar: 18
Kayıt: 07 Haz 2004 09:04
Konum: Mersin
İletişim:

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

Mesaj gönderen 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
Kıdemli Üye
Mesajlar: 531
Kayıt: 18 Mar 2005 02:45
Konum: İstanbul/Antalya
İletişim:

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

Mesaj gönderen 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;
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3077
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

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

Mesaj gönderen sabanakman »

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

viewtopic.php?f=19&t=15395&p=98013#p98013
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
ilkeryesiloglu
Üye
Mesajlar: 18
Kayıt: 07 Haz 2004 09:04
Konum: Mersin
İletişim:

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

Mesaj gönderen ilkeryesiloglu »

Teşekkürler,
Çok işime yaradı. :idea:
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.
Cevapla