| random id kodu oluşturma
Kod: Kodu kopyalamak için üzerine çift tıklayın! 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.
|