delphi4arab منتديات دلفي للعرب

السلام عليكم
كيف اقوم بتوليد رقم عشوائي لوصل عند الطباعة :
حيث يكون الرقم الذي يتم توليده:   -كبير مثال ذلك : (12549856327542)
                                          -عشوائي
                                          مع عدم التكرار

لتوليد رقم عشوئي شيئ مثل

كود :
Var
Rnd : String;
i: word;
begin
Rnd:='';
Randomize;
for i := 1 to 14 do
Rnd:= Rnd+IntTostr(Random(10));
Caption := Rnd;
end;

لتفادي التكرار قم بالبحث عنه ضمن قاعدة بيانات (جدول بحقل واحد مثلا)
ان لم تجده قم باستخدامه في الطباعة واضافته بقاعدة البياتات.

(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 و جعله في ميزان حسناتك هذا ما ابحث عنه الله يسدد خظذطاك ان شاء الله

salmaanga

محمد عبد العزيز

salmaanga