[تعديل] الدالة العشوائية لتوليد الارقام والحروف (بدورة AT4RE لتعليم Keygening)

[karakoro]

شكرا لك على المعلومة
وهذا كود بطريقة اخرى لتوليد 5 ارقام عشوائية
 

procedure TForm1.Button1Click(Sender: TObject);
var
  SourceArr: array[0..8] of Integer; // المصفوفة (9 أرقام)
  StartIndex, i: Integer;
  s: string;
begin
  Randomize;

  // تعبئة المصفوفة من 1 إلى 9
  for i := 0 to 8 do
    SourceArr[i] := i + 1;

  // اختيار بداية عشوائية بحيث لا تتجاوز (9 - 5 = 4)
  StartIndex := Random(9 - 5 + 1);  // يعطي 0..4

  s := '';
  for i := StartIndex to StartIndex + 4 do
    s := s + IntToStr(SourceArr[i]); // بدون مسافة

  Edit1.Text := s;
end;