الدرس الثاني : دراسة خوارزمية التسجيل وبرمجة Keygen لبرنامج Quick Starter

[x-member]

بحيث كلما اضغط على مفتاح generate يعطيني مفتاحا من هذه المفاتيح العشرين

 
function randomkeys:string;
const keys : array [0..9] of integer = (1111,
2222,3333,4444,5555,6666,7777,8888,9999,5514);
begin
  result := inttostr(keys[random(length(keys))]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    edit1.text := randomkeys;
end;