السلام عليكم
السؤال هو
كيف استخدم خاصية random
مثال :
procedure TForm1.ircbotNicksInUse(Sender: TObject; var Nick: String);
begin
ircbot.Nick:='Guest1';
ircbot.Nick:='Guest2';
ircbot.Nick:='Guest3';
ircbot.Nick:='Guest4';
ircbot.Nick:='Guest5';
end;
ارجو ان يكون السؤال واضح :)
بالنسبة لإستخدام الراندوم في الدلفي فهو سهل جدا
مثال
Random(1000)
في هذه الحالة فإنه سيعرض رقما أقل من ألف وسيكون عشوائيا
أرجو أن أكون قد فهمت السؤال وهذه إجابته
وإن لم تكن إجابة كافية عليك بمراسلتي وإن شاء الله أجد لك الحل
شكرا على الاجابه
ولكني جربتها من قبل ولم تنفعني
:)
السلام عليكم
جرب هذا الكود وان شاء الله ينفع
ircbot.Nick := 'Guest'+IntToStr(random(5)+1);
السلام عليكم .......
إن دالة راندوم وضيفتها توليد أرقام عشوائية لتستعمل في مجموعة من البرامج مثل الألعاب ...
في حالتك أنت أستخدمت راندوم مع متغير سلسلة String ولذا يجب أن تستخدم الدالة IntToStr() لتحويل الرقم المولد إلى سلسلة لربطها مع السلسة التي أستخدمتها .....
وقد تفضل أخي FSL بتوضيح ذلك الكود ....
......
أتمني لكم التوفيق والنجاح
السلام عليكم
يعطيكم العافيه يا شباب
ومشكورين
اعتقد انها راح تعمل معي :)
هذا الموضوع مغلق.