30-01-2017, 02:17 PM
لتوليد رقم عشوئي شيئ مثل
لتفادي التكرار قم بالبحث عنه ضمن قاعدة بيانات (جدول بحقل واحد مثلا)
ان لم تجده قم باستخدامه في الطباعة واضافته بقاعدة البياتات.
كود :
Var
Rnd : String;
i: word;
begin
Rnd:='';
Randomize;
for i := 1 to 14 do
Rnd:= Rnd+IntTostr(Random(10));
Caption := Rnd;
end;ان لم تجده قم باستخدامه في الطباعة واضافته بقاعدة البياتات.
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)