🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
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;
__________________
SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.