+- الفريق العربي للهندسة العكسية (https://www.at4re.net/f)
+-- قسم : منتديات البرمجة - Programming Forums (https://www.at4re.net/f/forum-5.html)
+--- قسم : البرمجة بلغة باسكال و الدلفي - Pascal & Delphi (https://www.at4re.net/f/forum-18.html)
+--- الموضوع : [تعديل] الدالة العشوائية لتوليد الارقام والحروف (بدورة AT4RE لتعليم Keygening) (/thread-3377.html)
[تعديل] الدالة العشوائية لتوليد الارقام والحروف (بدورة AT4RE لتعليم Keygening) - TeRcO - 06-11-2022
السلام عليكم ورحمة الله وبركاته
لفت انتباهي (بدورة 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;
وشكرا لأساتذتنا الكرام لاثرائنا بكل ماقدموه من دروس و معرفة
دمتم بود
