المشاركات : 77
المواضيع 39
:
: 56
الإنتساب : Jul 2014
السلام عليكم
كيف اقوم بتوليد رقم عشوائي لوصل عند الطباعة :
حيث يكون الرقم الذي يتم توليده: -كبير مثال ذلك : (12549856327542)
-عشوائي
مع عدم التكرار
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
لتوليد رقم عشوئي شيئ مثل
كود :
Var
Rnd : String;
i: word;
begin
Rnd:='';
Randomize;
for i := 1 to 14 do
Rnd:= Rnd+IntTostr(Random(10));
Caption := Rnd;
end;
ان لم تجده قم باستخدامه في الطباعة واضافته بقاعدة البياتات.
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
المشاركات : 77
المواضيع 39
:
: 56
الإنتساب : Jul 2014
(30-01-2017, 02:17 PM)B.M.AbdelAziZ كتب : لتوليد رقم عشوئي شيئ مثل
كود :
Var
Rnd : String;
i: word;
begin
Rnd:='';
Randomize;
for i := 1 to 14 do
Rnd:= Rnd+IntTostr(Random(10));
Caption := Rnd;
end;
بارك الله فيك اخي B.M.AbdelAziZ و جعله في ميزان حسناتك هذا ما ابحث عنه
الله يسدد خظذطاك ان شاء الله
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)