سوال در مورد انتخاب تصادفی اعداد [بایگانی]

EBRAHIMJAN

پنج شنبه 08 دی 1390, 14:03 عصر

من یه فرم دارم که توش یه کادر tedit و یه دکمه button هست و یه لیست اعداد مثل این دارم

1234567890
aaokjfkdklllf145
weSFLKKDO44WPK
943558721
.
.
.

و غیره...
حالا می خوام هر وقت دکمه رو میزنم یکی از این لیست تو کادر نمایش داده بشه البته به صورت تصادفی لطفا بگید از چه کدی استفاده کنم.

MohsenB

پنج شنبه 08 دی 1390, 15:11 عصر

سلام

اگه فرض کنید یه لیست داشسته باشید که توش این مقادیر باشه ، این یه راهشه:

Randomize;
txt:= lst1.Items.Strings[Random(lst1.Items.Count)];

موفق باشید

EBRAHIMJAN

پنج شنبه 08 دی 1390, 22:56 عصر

سلام

اگه فرض کنید یه لیست داشسته باشید که توش این مقادیر باشه ، این یه راهشه:

Randomaize;
txt:= lst1.Items.Strings[((Random*10+1) * lst1.Items.Count)div 10 -1];

موفق باشید

محسن میشه سورسش رو هم بگزاری تا روی سورسش بتونم کار کنم. دلفی 7 دارم

MohsenB

جمعه 09 دی 1390, 14:48 عصر

سلام

کد بالا رو اصلاح کردم و بجاش یه کد راحتتر نوشتم .

بفرمایید :

EBRAHIMJAN

جمعه 09 دی 1390, 20:53 عصر

آقا محسن ممنون از اینکه کمکم کردید متاسفانه دلفی من که هفت هست روی این خط ارور میده

Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};

و از طرفی من می خوام اون شماره سریال ها توی کادر Edit نمایش داده بشه نه TlistBox یعنی زمانی که دکمه رو می زنیم یکی از این سریالها رو به صورت رندوم نشون بده . من یه لیست سریال دارم که می خوام با استفاده از این روش براش یه کیجن بسازم امیدوارم متوجه منظورم شده باشید

moein+

جمعه 09 دی 1390, 22:55 عصر

پیشنهاد می کنم برای قرار دادن متن از ثابت نوع دار استفده کنید:
const
Numbers:array[0..4]of string=('One','Two','Three','Four','Five');

و برای استفاده در رویدادی مانند ایجاد فرم (OnCreate) یا نمایش فرم :
Edit1.Text:=Numbers[Random(5)];

MohsenB

جمعه 09 دی 1390, 23:59 عصر

آقا محسن ممنون از اینکه کمکم کردید متاسفانه دلفی من که هفت هست روی این خط ارور میده

Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};

و از طرفی من می خوام اون شماره سریال ها توی کادر Edit نمایش داده بشه نه TlistBox یعنی زمانی که دکمه رو می زنیم یکی از این سریالها رو به صورت رندوم نشون بده . من یه لیست سریال دارم که می خوام با استفاده از این روش براش یه کیجن بسازم امیدوارم متوجه منظورم شده باشید

سلام

اول اینکه شما فقط کافیه Vcl. رو حذف کنین

دوم اینکه این یه مثال بود . یعنی شما نمیتونید تشخیص بدید که کد چیکار میکنه ؟ یعنی نمیتونستید جای لیبل تو برنامه یه جعبه متن قرار بدین؟ یعنی نمیتونستید جای یه جعبه لیست یه آرایه بزارین؟ یعنی نفهمیدین که این لیستی که گذاشتم منظورم همون لیست حروف مورد نظرتونه و برای نمایش نیست؟
پس چطور برنامه نویسی میکنید؟؟؟؟

خدا همه را به راه راست هدایت فرماید - آمین