08-04-2020, 08:45 AM
لا يتم الحساب
لا انصح بهذه الطريقة
لا اتذكر انه طرح Backup للمنتدى
لا انصح بهذه الطريقة
const keys : array [0..9] of String = (
'1234 1234567890',
'2568 0123456789',
'3341 9012345678',
'4791 7854567890',
'5234 1597932315',
'6784 5881361290',
'7981 8246585890',
'8888 9998842590',
'9999 2513846215',
'0101 1155887890');
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Edit1.Text := keys[Random(10)];
end;
(08-04-2020, 04:48 AM)Rever7eR كتب : هل تملك Backup لمنتدىلا
لا اتذكر انه طرح Backup للمنتدى
قطرة الماء تـثـقب الحجر.. لا بالعنف. لكن بتكرار المحاولة
أخي لن تنال العلم إلا بستة... ذكاء و حرص و اجتهاد و بلغة...و صحبة أستاذ و طول زمان
أخي لن تنال العلم إلا بستة... ذكاء و حرص و اجتهاد و بلغة...و صحبة أستاذ و طول زمان