IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - random id kodu oluşturma (https://www.ircforumlari.net/delphi/689495-random-id-kodu-olusturma.html)

Kaf_Dağı

18 Mart 2015 14:08

random id kodu oluşturma

Kod:

var

 dizi : array[1..25] of string;

 i : byte;

 id : string;

begin

 for i := 1 to 25 do

 begin

  dizi[i] := chr(64+i);

 end;

 randomize;

 id := 

dizi[random(25)+1]+inttostr(random(9))+dizi[random(25)+1]+dizi[random(25)+1]+int

tostr(random(9))+inttostr(random(9))+dizi[random(25)+1];

 cxTextEdit1.Text:=id;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:52.