+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اقوم بتوليد رقم عشوائي لوصل عند الطباعة (/showthread.php?tid=8375)
كيف اقوم بتوليد رقم عشوائي لوصل عند الطباعة - salmaanga - 29-01-2017
السلام عليكم
كيف اقوم بتوليد رقم عشوائي لوصل عند الطباعة :
حيث يكون الرقم الذي يتم توليده: -كبير مثال ذلك : (12549856327542)
-عشوائي
مع عدم التكرار
RE: كيف اقوم بتوليد رقم عشوائي لوصل عند الطباعة - محمد عبد العزيز - 30-01-2017
لتوليد رقم عشوئي شيئ مثل
كود :
Var
Rnd : String;
i: word;
begin
Rnd:='';
Randomize;
for i := 1 to 14 do
Rnd:= Rnd+IntTostr(Random(10));
Caption := Rnd;
end;ان لم تجده قم باستخدامه في الطباعة واضافته بقاعدة البياتات.
RE: كيف اقوم بتوليد رقم عشوائي لوصل عند الطباعة - salmaanga - 30-01-2017
(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 و جعله في ميزان حسناتك هذا ما ابحث عنه الله يسدد خظذطاك ان شاء الله