تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تعديل] الدالة العشوائية لتوليد الارقام والحروف (بدورة AT4RE لتعليم Keygening)
#1
السلام عليكم ورحمة الله وبركاته


لفت انتباهي (بدورة AT4RE لتعليم Keygening)
في دالتي توليد الارقام والحروف العشوائية
 ان النتيجة دائمة متشابهة
RandomNum = 3404-2631-0082
RandomStr =JLCM-HRIE-AAWF

 
function RandomStr: String;
var
A, K: String;
i : Integer;
begin
//randomize; <<== Add HERE
  K:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  A:='xxxx';
  for i:=1 to length(A) do
    A[i]:=K[Random(length(k))+1];
  Result := A;
end;


function RandomNum : String;
var
A, K: String;
i: Integer;
begin
//randomize; <<== Add HERE
  K:='0123456789';
  A:='xxxx';
  for i:=1 to length(A) do
    A[i]:=K[Random(length(k))+1];
  Result := A;
end;


وهو مايخالف تسميتها (Random-عشوائية)
وحلها بسيط ..... للحصول على نتيجة عشوائية نقوم باضافة السطر
randomize;
 
وشكرا لأساتذتنا الكرام لاثرائنا بكل ماقدموه من دروس و معرفة rose

دمتم بود victory
أَخي لَن تَنالَ العِلمَ إِلّا بِسِتَّةٍ · سَأُنبيكَ عَن تَفصيلِها بِبَيانِ · ذَكاءٌ وَ حِرصٌ وَ اِجتِهادٌ وَ بُلغَةٌ · وَصُحبَةُ أُستاذٍ وَ طولُ زَمانِ 
أعضاء أعجبوا بهذه المشاركة : the9am3 , siddigss , ExCodeMaker , DarkDeath , EarthMan123 , Newhak , farfes


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم