آموزش : انتخاب تصادفی یک رکورد

سلام

کد:

---

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.First;
  Table1.MoveBy(Random(Table1.RecordCount));
end;

---

تابع Randomize برای این که عدد تصادفی با تصادف بیشتری
انتخاب بشه
برنامه رو یک بار Randomize و یک بار بدون Randomize
اجرا کنید تا دقیقا متوجه بشین فرقش در چیه

این احتمالا آخرین پست من توی این انجمنه
شاید دیگه نرسم سر بزنم
امیدوارم آخرین آموزش به دردتون بخوره
اگه سوال خاصی بود پست خصوصی بزنید اما قول
نمی دهم که جواب داده بشه.
بای