سوال : پيدا كردن اعدادي كه بين يك سري اعداد پشت سر هم نيستند

[hp1361]

سولجر عزيز ميشه يه جورايي برنامه شما رو شبيه چيزي كه bayazee گفتن فرض كرد

ممنون و منتظر پيشنهاد ديگر دوستان هستم

[soldier]

سلام
خوب این تا حدودی کامل تر بود! یعنی باز هم بدرد نخورد؟
خوب وقتی که دیگه کامل فکر کردن بر روی انتخاب الگوریتم تموم شد
و می خواستید از پست10# استفاده کنید! سوالی داشتید ! در خدمتم!

[مرد مباح]

مقدار وردي كابر رو ----- كن و كل مقادير فيلد ابطال رو توي يك While چك كن.
مقاديري كه ميخواي رو True و باقي رو False كن.
بعد پرينت بگير.

اميدوارم منظورتو درست فهميده باشم و به دردت بخوره.

[mahdi bg]

سلام:

hp1361 جان

اينطوري كه من فهميدم:
اول گزارش رو بر اساس ماه يا سال يا هر چيز ديگري كه مي خواهي بگيري انجام بده بعد
اگر از ADOTable استفاده مي كني كد زيررو وارد كن

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

توضيح

1. كد رو ساده نوشتم كه قابل فهم باشه وگرنه راحتر و زيبا تر هم مي شه نوشت
2. s:string;
3. i:integer;
4. فرض بين اعداد يك فاصله باشد (1و2و5و... غير مجاز چون بين 2و5 دو عدد وارد نشده البته مي شه با يكم تغيير اين رو هم اضافه كرد كه چند عدد هم اگه وارد نشد كنترل كنه)
5. ابتدا از اول شروع ميكنه و هر شماره رو با قبلش چك مي كنه اگه اختلافشون يكي بود عدد رو به رشته s اضافه ميكنه
مثال:
1و2و3و5و6
اگه به 5 رسيده باشد آنگاه if (ADOTable1.FieldByName('YourFieldName').Value<>i+1 ) then مقدار True مي شه يعني 5<>3+1 پس عدد بين‌ (IntToStr(ADOTable1.FieldByName('YourFieldName').V alue-1) رو به رشته s اضافه ميكنه‌ }عدد 4{

اميدوارم كه كمكت كرده باشم

[hp1361]

سلام

اول از هر چيز بگم كه بخاطر عدم همكاري دوستان در راهنمايي من براي بكار بردن جداول ADO از خيرش بكل گذشتم (دلگير هم هستم چون بيشتر بكارم ميامد )

من از جداول پارادكس استفاده مي كنم

الگوريتم مورد نظر هم با راهنمايي bayazee و mehdi bg عزيز انتخاب شد

ممنون

[مرد مباح]

سلام

اول از هر چيز بگم كه بخاطر عدم همكاري دوستان در راهنمايي من براي بكار بردن جداول ADO از خيرش بكل گذشتم (دلگير هم هستم چون بيشتر بكارم ميامد )

من از جداول پارادكس استفاده مي كنم

الگوريتم مورد نظر هم با راهنمايي bayazee و mehdi bg عزيز انتخاب شد

ممنون

سلام رفيق.
من كه درباره ADO تقريبا همه چيز رو گفتم.
توي تاپيك همه چيز درباره ديتابيسها.
لينكشم توي امضام هست.
موفق باشي.
اگه سوالي برات بود همون جا بپرس ممنون.