PDA

View Full Version : سوال: نمايش Random يا اتفاقي يك جمله از بانك اطلاعاتي


ahmadbh
سه شنبه 11 مرداد 1390, 17:17 عصر
سلام
چطور ميشود يك متن از يك بانك را بصورت اتفاقي انتخاب كرد و در فرم بصورت حركت از چپ به راست نشان داد
از چه كامپوننتي ميشود براي حركت متن استفاده كرد
و براي انتخاب تصائفي متن چيكار بايد كرد
با تشكر
Felony
سه شنبه 11 مرداد 1390, 19:04 عصر
چطور ميشود يك متن از يك بانك را بصورت اتفاقي انتخاب كرد و در فرم بصورت حركت از چپ به راست نشان داد
با تابع Random یک شماره به دست میاری و رکورد متناظر با اون شماره رو از بانک واکشی میکنی .


از چه كامپوننتي ميشود براي حركت متن استفاده كرد
خودت به راحتی میتونی بنویسی ، البته چند وقت پیش یکی از دوستان تو همین بخش همچین کامپوننتی قرار داده بود .
ahmadbh
چهارشنبه 12 مرداد 1390, 11:00 صبح
ميشه نمونه سورس يا كدش را براي من بگذاريد ممنون ميشم
Mahmood_M
چهارشنبه 12 مرداد 1390, 20:13 عصر
ADOTable یا هر کامپوننت دیگه ای مربوط به جدول یک خصوصیت به نام RecNo داره که شماره ی رکورد جاری ( انتخاب شده ) جدول رو برمی گردونه ، شما این خصوصیت رو برابر با خروجی تابع Random قرار می دید :
ADOTable1.RecNo := Random(N);
البته مقدار N باید تعداد رکوردها باشه تا عددی بزرگتر از تعداد رکوردهای جدول انتخاب نشه :
ADOTable1.RecNo := Random(ADOTable1.RecordCount);
نکته ی مهم اینه که تابع Random عدد صفر رو هم برمی گردونه ، برای کنترل این موضوع راههای زیادی هست ، مثلا می تونید قبل از اختصاص مقدار برگشتی تابع به RecNo ، اون رو چک کنید :
procedure TForm1.BitBtn1Click(Sender: TObject);
var
I : Integer;
begin
I := Random(ADOTable1.RecordCount);
while I = 0 do
I := Random(ADOTable1.RecordCount);
ADOTable1.RecNo := I;
end;

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

موفق باشید ...
ahmadbh
پنج شنبه 13 مرداد 1390, 11:26 صبح
با تشكر از شما
بهترين كامپوننت براي حركت از چپ به راست ليبل كدام است
لطفا لينك دانلود را هم بگذاريد
Mahmood_M
پنج شنبه 13 مرداد 1390, 20:11 عصر
بهترين كامپوننت براي حركت از چپ به راست ليبل كدام است
لطفا لينك دانلود را هم بگذاريد

هر تاپیک برای یک سئوال ( برای سئوال های دیگه تاپیک جدید ایجاد کنید )
قبل از ارسال تاپیک در سایت جستجو کنید ( جواب سئوالتون در سایت هست )
قرار دادن لینک دانلود کامپوننتهای تجاری در این سایت ممنوع است
Delphi 2010
یک شنبه 16 مرداد 1390, 18:26 عصر
شما با تابع Random یک عدد تصادفی براساس تعداد رکوردهای جدول بدست بیاری و به جدول بدید و RecordNo رو بدست بیاری و نوشته رو خونید از توی بانک

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