دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

الكلمات المتقاطعة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

الكلمات المتقاطعة

مُساهمة  mah11 في 4/8/2013, 8:35 pm


بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله


الكلمات المتقاطعة


انشئ هذه الملفات في نفس المجلد مع البرنامج وانسخ هذه المعلومات فيها .

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:32 am

انشئ هذه الملفات في نفس المجلد مع البرنامج وانسخ هذه المعلومات فيها .

حلول
--
إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche1 |
-----------------------------------
الكود:

الانبياء0ق
انجلترا0هر
ا0تو0و0ع0ن
00بم0يونس0
راي0غ00ابر
تل0العادل0
0ملو0ابل0ن
بناتاوى0نا
0سم0ان0ادم
كفكف0تيهرت

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:35 am

حلول
--

إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche2 |
-----------------------------------

الكود:

خمسة0مع0مس
0ل00ماركا0
فانديرسار0
ا0ا0ت00كاد
بيكي0ل0ادم
رما0نوه0ور
يليب00وطن0
غ0المجر0اس
اسم0ميسي0
سرار0دت0حر

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:37 am

حلول
--


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche3 |
-----------------------------------

الكود:

النار0جوان
0النرويج0ا
ربح0راب0اف
بل000رو0مع
0ااا0ستر00
اسد0سويسرا
ل0رمس000مل
نابلس00جلق
سل00سيول0ر
رحمة0م0سدد

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:39 am

حلول
--

إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche4 |
-----------------------------------

الكود:

تاقدمت0نام
ابراهيم0لد
ب0نم00المد
طب0سما0ار0
0ود0حل0نجل
بر0الرت0لو
عتال0بلد0م
لواندا0ييي
00اسن0مدح0
جم0رومانيا

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:41 am

حلول
--


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche5 |
-----------------------------------

الكود:

اركانساس0ا
امحلس00بعل
0ل0مل0ا00ق
ا0بج0القرد
لاباز0انار
خف0دي0مع00
و0النغل0اك
خولة0ا0ملو
0اب0النيسب
00التيس0كا

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:44 am

حلول
--

إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche6 |
-----------------------------------

الكود:

ولايةالقطن
هولاكو0فاس
راب0تتت0في
ان0الالف0ر
ندر0اومال0
0ا0ل0ا0سما
ج0عاد0ق0عل
محمدفوزي0ج
00ال0ل0سار
الناصية0فف

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:46 am

حلول
--

إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche7 |
-----------------------------------

الكود:

المسيلة0جم
زامبيا0جلي
0مر0ي0اب0ل
كك0ل0ال0ما
م0ات0بنيان
0سل0برانتو
جلق0ا0ص000
و0بار0يوسف
الحليلة0ف0
نن0اسب0قنع

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:47 am

حلول
--

إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche8 |
-----------------------------------

الكود:

العمال0رقد
لامع0الفتح
س0لمع0مضلل
مع0ل0س000ب
كيف0عمران0
0د0جمال0مع
0000و00عرس
0عداد00م0ل
رد000معرج0
مستور000ما

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:49 am

حلول
--

إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche9 |
-----------------------------------
الكود:

كتاب0ا00ن0
ليس0الجلفة
مسموع0م0ي0
ا0الجزائر0
تاء0ليل00ا
00000ت0جمل
000دروب0رب
عمل00ن00لا
لا0000من0ب
م0قام0نام0

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:51 am

تمارين

إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche1.txt |
-----------------------------------
أفقيا :
1 - السورة التي وردت فيها قصة
تحطيم إبراهيم عليه السلام للأصنام

2 - الدولة التي صدر بها أول طابع
بريدي - قط

3 - إثنان بالإنجليزية
4 - ثلثا مصب - من الأنبياء ابتلعه الحوت

5 - وجهة نظر - حقن
6 - أخرج تراب البئر - المنصف
7 - إسم قديم لمدينة ميلة - جمال
8 - جمع إبن آوى - ضمير متصل
9 - ثقب الإبرة - للنصب - أبو البشرية
10 - مسح دموعه مرة بعد مرة - إسم
قديم لمدينة تيارت

عمــــــوديا
1 - حرف مكرر - بالي
2 - للنصب - فم الحمار
3 - أختار - إسم والد سيدنا نوح
4 - نعاتب - شهر ميلادي
5 - ثلثا بتر - حقد - متشابهان
6 - يحكي - ساعدت
7 - متشابهان - رفض
8 - جمع - عندليب - للتألم
9 - طرق - قل وجود - الشيء
10- 100سنة - رقدت

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:51 am


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche2.txt |
-----------------------------------
أفقيـــــا :

1 - عدد البطاقات الصفراء التي اذا نالها لاعب في البطولة الاسبانية يعاقب بمباراة واحدة - برفقة

2 - صحيفة مقربة من فريق ريال مدريد

3 - حارس مانشستر يونايتد في نهائي رابطة ابطال اوروبا 2011

4 - اوشك
5 - من مدافعي برشلونة - اول انسان عطس

6 - اعبر (م) - اشاد - ثلثا ورم

7 - اللاعب البرازيلي الذي سجل هدفه الالف في نوفمبر 1969 (م) - مفرد اوطان

8 - المنتخب الذي خسر نهائي مونديال 1954 امام منتخب المانيا الغربية بنتيجة (3 - 2) - صحيفة قريبة من محيط ريال مدريد

9 - الشيء الموجود في كل شيء (ن) - اللاعب الذي قال عنه نجم ريال مدريد سابقا دي ستيفانو انه احسن منه ومن مارادونا وكريف

10 - من نجوم وفاق سطيف لما نال كاس افريقيا للاندية البطلة عام 1988 - ثلثا وتد - طليق

عمــوديـــا :

1 - من نجوم فريق ارسنال الموسم المنصرم

2 - وجع (م) -يسأل - لايفشى
3-اللاعب اليابان الذي سجل ثلاث أهداف في 3 دقائق و 15 ثانة في مرمى منتخب برونلي ام 2000

4- حرف عطف

5- عكس حي - متشابهان

6-عابر - للتمني - عنق

7- مفرد أعراس - اللاعب الانجليزي الذي سجل ثلاث اهداف في 3 دقائقة و 30 ثانية في مرمى المنتخب ايرالندا عام 1938 م

8- لاعب برازيلي شهير

9- يقولون عنه انه احسن من مارس كرة القدم في الربع الخير من القرن المنصوب ‘ يعمل حاليا مدربا في الخليج

10-هدم - مادة غذائية تلقب بـا لسم لابيض (ن)

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:52 am


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche3.txt |
-----------------------------------
أفقيــــــــــا:

1 دار الفاسقين - شهر ميلادي
2 دولة أربيية
3 نجح - خثر- للضجر
4 حرف عطف - اشرب - برفقة
5 حرف مكرر - غطاء
6 ملك السباع - دولة أربيية
7 دفن - سئم
8 مدينة فلسطينية - جلق هي جلق
9 مرض سدري - جمع سيل
10 رأفة - صوب

عـــــــــــــموديا:

1 اله - من الجوارح
2 لا بلاس هي لا بلاس - أصر
3 نصرّ - أدرب هي أدرب
4 للنصب - للاشارة - كره
5 حرف مكرر - حرف س مكرر 4
6 حلف - بحر
7 جيبوتي هي جيبوتي
8 نبات - رس هي رس قعد
9 والدة - تراب رقيق
10 مفيد - حيوان يمشي على رجلين

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:53 am


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche4.txt |
-----------------------------------
أفقيــــــــــا:

1)اسم قديم لمدينة تيارت-رقد
2)النبي الذي طرده والده من البيت -أرشد(م)
3)زين الكلام بالكذب-امتداد ماء البحرإلى البر
4)سحر - علا وارتفع - لقياس المساحة
5)حب-فك-ابن
6)صدق-الشديدالجري من ذكورالخنازير - لتمني
7)حمال - مفرد بلدان
Coolعاصمة أنغولا-حرف مكرر
9)شاخ-ثناء
10)كثير - عاصمتها بوخاريست

عـــــــــــــموديا:
1)بمعنى حمل شيئا تحت إبطة - زوج
2)والد - مدينة برتغالية
3)100 سنة - حرف مكرر
4)مظلم - عريف الطيور
5) اسم فعل بمعنى انكفف - مفرد محلات-اقترح
6)ثلثا تيس- من المكاسب غير المشروع
7)اسم موصول - مفرد تلال-ثلثا ماي
Coolعكس صلب - عادة
9)خزان الماء في الآلآت البخارية-من أنبياء
10)عون و غوث - عاصمة الطوغو

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:55 am


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche5.txt |
-----------------------------------
أفقيا
1)ولاية أمريكية تلقب بـ
الارض الفرص
2) كنية تطلق على أنثة الحمار-زوج
3)سئم
4)شق و بقر - الحيوان الوحيد الذي يضحك
5)عاصمة بوليفيا - أضاء
6)عكس ثقل - أقصر نهر في العالم - برفقة
7)الحيوان المتولد من الحصان وأتان-ثلثا كاد
Coolاسم المرأة التي جادلت الرسول صلى الله عليه و سلم - اسم قديم لمدينة ميلة
9)والد - طريق النمل
10)ذكر الماعز - ثلثا كاف
عموديا
1)متشبهان - من الفواكه
2)في الصحراء-لتأفف - حرف نداء للندبة
3)ثلثا حكم - متشابهان-حرضا
4)سورة فرانية
5)ذرية - نمق-قادم
6)مرتفع الثمن
7)معنى اسم نادية - ساق الناقة زجرها
Coolشتم-رضي بما قسم له - اسم أديبة عربية معاصرة
9)ثلثا راب - جحر العقرب
10)كانوا يقولون إن الفتات التي تاكل منها يوم زفافها تسقط لأمطار-عاصمتها هافانا

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:55 am


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche6.txt |
-----------------------------------

أفقيـــــا:

1 - لقب يطلق على ولاية الاباما بالولايات المتحدة الامركية
2 - زعيم مغولي - معول
3 - خثراللبن -حرف مكررللجر
4- للنصب- الحرف الأكثرتكرارا في القرأن الكريم
5- قل وجود الشيء-اسم قديم لمدينة سور الغزلان
6- علاوارتفع
7- زارالمريض - مرض
8- ملحن النشيدالوطني
9- للتعريف - مشى
10- شعرمقدم الرأس - متشابهان

عموديا:

1- ولاية الجزائرية-كثير
2- عاصمةافريقية
3- حرض - عاصمةعربية
4- للنداء- من حروف اللغةعربية {م}
5- حزام السروال {م} - طبل
6- عاصمةاكندا- مفرداولياء
7- تجمع - حرير
8-إشارةمرور- مدينةمغريبة- قلب القران
9- دار حول الشيء - برق
10- نمشي - من أكبرمعرك الثورالتحريرية،

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:56 am


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche7.txt |
-----------------------------------
أفقيا :

1)الولاية الجزائرية التي كانت تسمى ب (المحمدية) - كثير
2)أكبر بلد أفريقي منتج للنحاس - واضح
3)عبر - والد
4)متشابهان - للتعريف - اسم موصول
5)قادم - عمران
6)مرض معدي - الكلمة التي يقولها لأطاليون عند الرد على الهاتف
7)اسم قديم لمدينة دمشق
Coolصادق - النبي الذي وضع خطة لأقتصادية لإنقاذ مصر من المجاعة
9)الزوجة
10)متشابهان - أشتم - رضي بما قسم له

عموديا:

1)ثلثا زال - للسؤال عن الثمن -شهر الميلادي
2)اسم والد سيدنا نوح - ثلثا سلع -للنصب
3)معنى اسم تيبازة - يقولون عنه أنه حارس المرأة
4)شتم - دق الشيء وفته وسحقه - للاستثناء
5)حرف مكرر - عاصمة اروبية يعني اسمها "النور"
6)للنفي - حقن - جوهر
7)شعر مقدم الراس
Coolبئر - عملة اليابان
9)معظر الشيء - فارق الحياة - بوخر
10) مدينة إطالية

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:57 am


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche8.txt |
-----------------------------------
أفقيا :

1)جمع عامل - نام
2) بارق
3) برق - الكثير التتّبع للضلال
4)حرف عطف للمراقفة
5)سوال عن حالة الاشخاص - بنيان
6) جمع جمل - حرف عطف للمرافقة
7)يوم الزفاف
Coolالذي يعدالقيم الكهربائية أو المائية
9)ارجع - السلم والمصعد
10)مخفي - حرف نفي

عموديا :
1)يعيش في البحر - ثلثا رمل
2)للتريف - يوم إحتفال - من الحبوب الجافة
3)اشتغل
4)مصنع
5)وتدطويل
6)للنفي - علا
7)للنفي
Coolابى - سن
9)عكس أحي - من سنوريات - كثير
10)لاعب جزائري - دواء طبيعي غير مركب

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:57 am


إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Fiche9.txt |
-----------------------------------
افقيا:

1) مفرد كتب
2) أداة نفي - ولاية جزائرية
3) مفعول سمع
4) عاصمة الجزائر
5) حرف - عكس نهار
6) مفرد جمال
7) جمع درب - اله
Cool مفرد اعمال - للنفي
9) للنفي - حرف جر
10) مقف - رقد

عموديا:

1)جمع كلمة -شغل
2)ذكر الماعز - للنفي
3)جمع اسم
4)ثلثا ولي
5) الفعل الرباغي من عجل
6) للتعريف - ثمر شجرة مباركة
7) عكس قبح - حرف جر
Coolضمير متصل
9)نفر على وزن فعيل - رمل مبعثر
10) مدخل المنزل

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 10:59 am


-
هذا الملف خاص باسماء الملفات

إنشاء الملف التالي ونسخ ولصق هذه المعلومات فيه
-----------------------------------
| Nom |
-----------------------------------

Fiche1
Fiche2
Fiche3
Fiche4
Fiche5
Fiche6
Fiche7
Fiche8
Fiche9

-------------------------------------
هذا الملف خاص بعدد الملفات

إنشاء الملف التالي و نكتب رقم 9 فيه
-----------------------------------
| Num |
-----------------------------------
9

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 11:44 am


البرنامج

===================
=== الوحدة الأولى ======
===================

الكود:

unit Unit1; // delph.forumalgerie.net

 interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls, {Graphics13,} ExtCtrls, Menus, Buttons,
  AxCtrls, OleCtrls//, vcf1
  ; // delph.forumalgerie.net

type
 TForm1 = class(TForm) // delph.forumalgerie.net
 StringGridCroise: TStringGrid; // delph.forumalgerie.net
 Memo1: TMemo; // delph.forumalgerie.net
 Button5: TButton; // delph.forumalgerie.net
Label1: TLabel; // delph.forumalgerie.net
Label2: TLabel; // delph.forumalgerie.net
Label3: TLabel; // delph.forumalgerie.net
Label4: TLabel; // delph.forumalgerie.net
Label5: TLabel; // delph.forumalgerie.net
Label6: TLabel; // delph.forumalgerie.net
Label7: TLabel; // delph.forumalgerie.net
Label8: TLabel; // delph.forumalgerie.net
Label9: TLabel; // delph.forumalgerie.net
Label10: TLabel; // delph.forumalgerie.net
Label11: TLabel; // delph.forumalgerie.net
Label12: TLabel; // delph.forumalgerie.net
Label13: TLabel; // delph.forumalgerie.net
Label14: TLabel; // delph.forumalgerie.net
Label15: TLabel; // delph.forumalgerie.net
Label16: TLabel; // delph.forumalgerie.net
Label17: TLabel; // delph.forumalgerie.net
Label18: TLabel; // delph.forumalgerie.net
Label19: TLabel; // delph.forumalgerie.net
Label20: TLabel; // delph.forumalgerie.net
MainMenu1: TMainMenu; // delph.forumalgerie.net
File1: TMenuItem; // delph.forumalgerie.net
New1: TMenuItem; // delph.forumalgerie.net
Open1: TMenuItem; // delph.forumalgerie.net
Edit1: TMenuItem; // delph.forumalgerie.net
Helpe1: TMenuItem; // delph.forumalgerie.net
Apropo1: TMenuItem; // delph.forumalgerie.net
BitBtn1: TBitBtn; // delph.forumalgerie.net
corrction1: TMenuItem; // delph.forumalgerie.net
N1: TMenuItem; // delph.forumalgerie.net
Exit1: TMenuItem; // delph.forumalgerie.net
N2: TMenuItem; // delph.forumalgerie.net
Touls1: TMenuItem; // delph.forumalgerie.net
corige1: TMenuItem; // delph.forumalgerie.net
Save1: TMenuItem; // delph.forumalgerie.net
procedure Button5Click(Sender: TObject); // delph.forumalgerie.net
procedure FormCreate(Sender: TObject); // delph.forumalgerie.net
procedure Label11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label13MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label15MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label18MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label19MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label20MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net // delph.forumalgerie.net
procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Label10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
procedure Apropo1Click(Sender: TObject); // delph.forumalgerie.net
procedure Open1Click(Sender: TObject); // delph.forumalgerie.net
procedure corrction1Click(Sender: TObject); // delph.forumalgerie.net
procedure Exit1Click(Sender: TObject); // delph.forumalgerie.net
procedure Save1Click(Sender: TObject); // delph.forumalgerie.net
procedure New1Click(Sender: TObject); // delph.forumalgerie.net
private
{ Déclarations privées } // delph.forumalgerie.net
public
{ Déclarations publiques } // delph.forumalgerie.net
end; // delph.forumalgerie.net

var
Form1: TForm1; // delph.forumalgerie.net
Fiche: String; // delph.forumalgerie.net
tab01: array[1..100] of string; // delph.forumalgerie.net
bool000: Boolean; // delph.forumalgerie.net

implementation

uses Prop; // delph.forumalgerie.net

{$R *.DFM} // delph.forumalgerie.net



procedure TForm1.Button5Click(Sender: TObject); // delph.forumalgerie.net
var
f: TextFile; // delph.forumalgerie.net
s: string[10]; // delph.forumalgerie.net
c: string[1]; // delph.forumalgerie.net
i, j: integer; // delph.forumalgerie.net
bool01: Boolean; // delph.forumalgerie.net
a: integer; // delph.forumalgerie.net
begin

bool01 := False; a := 0; // delph.forumalgerie.net
AssignFile(f, Fiche); //'Fiche1' // delph.forumalgerie.net
Reset(f); // delph.forumalgerie.net
for i := 0 to 9 do
begin
ReadLn(f, s); // delph.forumalgerie.net
for j := 0 to 9 do
begin
c := Copy(s, j+1, 1); // delph.forumalgerie.net
if(StringGridCroise.Cells[j, i] = c)then a := a + 1; // delph.forumalgerie.net
//if(StringGridCroise.Cells[j, i] = '0')then b := b + 1;(- b)
if a = 100 then
bool01 := True; // delph.forumalgerie.net
end; // delph.forumalgerie.net
end; // delph.forumalgerie.net
CloseFile(f); // delph.forumalgerie.net
if bool01 then
MessageBox
(
0,
'لقد وجدت الحل مبروك'
,'تهنئة'
,MB_OK); // delph.forumalgerie.net
end; // delph.forumalgerie.net


procedure TForm1.FormCreate(Sender: TObject); // delph.forumalgerie.net
begin
Application.ShowHint := true; // delph.forumalgerie.net
bool000 := False; // delph.forumalgerie.net
Open1Click(Sender); // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[i,0] <> '0' then
s := s + StringGridCroise.Cells[i,0]
else s := s + ' - '; // delph.forumalgerie.net
Label11.Hint := s; // delph.forumalgerie.net
Label11.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net


procedure TForm1.Label12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[i,1] <> '0' then
s := s + StringGridCroise.Cells[i,1]
else s := s + ' - '; // delph.forumalgerie.net
Label12.Hint := s; // delph.forumalgerie.net
Label12.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label13MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[i,2] <> '0' then
s := s + StringGridCroise.Cells[i,2]
else s := s + ' - '; // delph.forumalgerie.net
Label13.Hint := s;
Label13.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string;
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[i,3] <> '0' then
s := s + StringGridCroise.Cells[i,3]
else s := s + ' - '; // delph.forumalgerie.net
Label14.Hint := s; // delph.forumalgerie.net
Label14.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net


procedure TForm1.Label15MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[i,4] <> '0' then
s := s + StringGridCroise.Cells[i,4]
else s := s + ' - '; // delph.forumalgerie.net
Label15.Hint := s; // delph.forumalgerie.net
Label15.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end;;
if StringGridCroise.Cells[i,5] <> '0' then
s := s + StringGridCroise.Cells[i,5]
else s := s + ' - '; // delph.forumalgerie.net
Label16.Hint := s; // delph.forumalgerie.net
Label16.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net
 
procedure TForm1.Label17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[i,6] <> '0' then
s := s + StringGridCroise.Cells[i,6]
else s := s + ' - '; // delph.forumalgerie.net
Label17.Hint := s; // delph.forumalgerie.net
Label17.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label18MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string;
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[i,7] <> '0' then
s := s + StringGridCroise.Cells[i,7]
else s := s + ' - '; // delph.forumalgerie.net
Label18.Hint := s; // delph.forumalgerie.net
Label18.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label19MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[i,8] <> '0' then
s := s + StringGridCroise.Cells[i,8]
else s := s + ' - '; // delph.forumalgerie.net
Label19.Hint := s; // delph.forumalgerie.net
Label19.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label20MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[i,9] <> '0' then
s := s + StringGridCroise.Cells[i,9]
else s := s + ' - '; // delph.forumalgerie.net
Label20.Hint := s; // delph.forumalgerie.net
Label20.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[0,i] <> '0' then
s := s + StringGridCroise.Cells[0,i]
else s := s + ' - '; // delph.forumalgerie.net
Label1.Hint := s; // delph.forumalgerie.net
Label1.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[1,i] <> '0' then
s := s + StringGridCroise.Cells[1,i]
else s := s + ' - '; // delph.forumalgerie.net
Label2.Hint := s; // delph.forumalgerie.net
Label2.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[2,i] <> '0' then
s := s + StringGridCroise.Cells[2,i]
else s := s + ' - '; // delph.forumalgerie.net
Label3.Hint := s; // delph.forumalgerie.net
Label3.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[3,i] <> '0' then
s := s + StringGridCroise.Cells[3,i]
else s := s + ' - '; // delph.forumalgerie.net
Label4.Hint := s; // delph.forumalgerie.net
Label4.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[4,i] <> '0' then
s := s + StringGridCroise.Cells[4,i]
else s := s + ' - '; // delph.forumalgerie.net
Label5.Hint := s;
Label5.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[5,i] <> '0' then
s := s + StringGridCroise.Cells[5,i]
else s := s + ' - '; // delph.forumalgerie.net
Label6.Hint := s; // delph.forumalgerie.net
Label6.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[6,i] <> '0' then
s := s + StringGridCroise.Cells[6,i]
else s := s + ' - '; // delph.forumalgerie.net
Label7.Hint := s; // delph.forumalgerie.net
Label7.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[7,i] <> '0' then
s := s + StringGridCroise.Cells[7,i]
else s := s + ' - '; // delph.forumalgerie.net
Label8.Hint := s; // delph.forumalgerie.net
Label8.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[8,i] <> '0' then
s := s + StringGridCroise.Cells[8,i]
else s := s + ' - '; // delph.forumalgerie.net
Label9.Hint := s; // delph.forumalgerie.net
Label9.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Label10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // delph.forumalgerie.net
var i: integer; // delph.forumalgerie.net
s: string; // delph.forumalgerie.net
begin
for i := 0 to 9 do //begin end; // delph.forumalgerie.net
if StringGridCroise.Cells[9,i] <> '0' then
s := s + StringGridCroise.Cells[9,i]
else s := s + ' - '; // delph.forumalgerie.net
Label10.Hint := s; // delph.forumalgerie.net
Label10.ShowHint := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net // delph.forumalgerie.net

procedure TForm1.Apropo1Click(Sender: TObject);
begin
AboutBox.ShowModal; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Open1Click(Sender: TObject); // delph.forumalgerie.net
var
f, f1, f2: TextFile; // delph.forumalgerie.net
i, j: integer; // delph.forumalgerie.net
s : string[10]; // delph.forumalgerie.net
c : string[1]; // delph.forumalgerie.net
q,p : integer; // delph.forumalgerie.net

begin

for i := 0 to 9 do
for j := 0 to 9 do
StringGridCroise.Cells[j,i] := ''; // delph.forumalgerie.net

AssignFile(f1,'Num'); // delph.forumalgerie.net
Reset(f1); // delph.forumalgerie.net
Read(f1, s); // delph.forumalgerie.net
s := IntToStr(StrToInt(s) + 1); // delph.forumalgerie.net
CloseFile(f1); // delph.forumalgerie.net
p := StrToInt(s); // delph.forumalgerie.net
randomize; // delph.forumalgerie.net
q := random(p)+1; // delph.forumalgerie.net
if not bool000 then begin
AssignFile(f2,'Nom'); // delph.forumalgerie.net
Reset(f2); // delph.forumalgerie.net
for i := 1 to p-1 do
ReadLn(f2, tab01[i]); // delph.forumalgerie.net
CloseFile(f2); // delph.forumalgerie.net
bool000 := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net
Fiche := tab01[q]; // delph.forumalgerie.net
if Fiche = '' then Fiche := tab01[q - 1];

Memo1.Clear; // delph.forumalgerie.net
Memo1.Lines.LoadFromFile (Fiche+'.txt'); // delph.forumalgerie.net
AssignFile(f, Fiche); // delph.forumalgerie.net
Reset(f); // delph.forumalgerie.net
for i := 0 to 9 do begin
ReadLn(f, s); // delph.forumalgerie.net
for j := 0 to 9 do begin
c := Copy(s, j+1, 1); // delph.forumalgerie.net
if c = '0' then
StringGridCroise.Cells[j,i] := '##'; // delph.forumalgerie.net
end; end; // delph.forumalgerie.net
CloseFile(f); // delph.forumalgerie.net
Caption := fiche; // delph.forumalgerie.net
Button5.Enabled := true; // delph.forumalgerie.net
Save1.Enabled := false; // delph.forumalgerie.net
corrction1.Enabled := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.corrction1Click(Sender: TObject); // delph.forumalgerie.net
begin
Button5Click(Sender); // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Exit1Click(Sender: TObject); // delph.forumalgerie.net
begin
close; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Save1Click(Sender: TObject); // delph.forumalgerie.net
var
f, f1, f2: TextFile; // delph.forumalgerie.net
i, j, k: integer; // delph.forumalgerie.net
s : String[3]; // delph.forumalgerie.net
begin
if Memo1.Modified then begin
Fiche := InputBox('مربع تحرير', 'أدخل اسم كلمات المتقاطة', '');
if (Fiche <> '')and(not FileExists(Fiche)) then begin
AssignFile(f,Fiche); // delph.forumalgerie.net
ReWrite(f); // delph.forumalgerie.net
for i := 0 to 9 do begin
for j := 0 to 9 do
Write(f, StringGridCroise.Cells[j,i]); // delph.forumalgerie.net
WriteLn(f); end; // delph.forumalgerie.net
CloseFile(f);
Memo1.Lines.SaveToFile(Fiche+'.txt'); // delph.forumalgerie.net

AssignFile(f1,'Num'); // delph.forumalgerie.net
Reset(f1); // delph.forumalgerie.net
Read(f1, s); // delph.forumalgerie.net
s := IntToStr(StrToInt(s) + 1); // delph.forumalgerie.net
CloseFile(f1); // delph.forumalgerie.net

AssignFile(f1,'Num'); // delph.forumalgerie.net
ReWrite(f1); // delph.forumalgerie.net
Write(f1, s); // delph.forumalgerie.net
CloseFile(f1); {} // delph.forumalgerie.net
//tab01

k := StrToInt(s); // delph.forumalgerie.net
AssignFile(f2,'Nom'); // delph.forumalgerie.net
Reset(f2); // delph.forumalgerie.net
for i := 1 to k-1 do
ReadLn(f2, tab01[i]); // delph.forumalgerie.net
tab01[i] := Fiche; // delph.forumalgerie.net
// CloseFile(f2); // delph.forumalgerie.net

// AssignFile(f2,'Nom'); // delph.forumalgerie.net
ReWrite(f2);
for i := 1 to k do
WriteLn(f2, tab01[i]); // delph.forumalgerie.net
CloseFile(f2); Save1.Enabled := false; // delph.forumalgerie.net
end else if FileExists(Fiche) then
MessageBox
(
0
,
'
هذا الملــف موجود مسبقــا
'
,
'
رســـالة تنبيه
'
,
MB_ICONWARNING+MB_RIGHT
)
;
end else begin MessageBox
(
0
,
'

إنك لم تقم إدخال أي معلومات رجاء إدخال المعلومات ثم قم بعملية الحفظ
'
,'
مربــــــــــع تنبيـــــــــــه
'
,
MB_ICONWARNING+MB_RIGHT
)
;
Save1.Enabled := false; end; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.New1Click(Sender: TObject); // delph.forumalgerie.net
var i,j: integer; // delph.forumalgerie.net
begin
for i := 0 to 9 do
for j := 0 to 9 do
StringGridCroise.Cells[j,i] := ''; // delph.forumalgerie.net
Memo1.Clear; // delph.forumalgerie.net
Save1.Enabled := true; // delph.forumalgerie.net
end; // delph.forumalgerie.net

end. // delph.forumalgerie.net

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  alla في 25/5/2015, 11:45 am

---------------------------
===========================
الوحدة الثانية
===========================
---------------------------


الكود:

unit Prop; // delph.forumalgerie.net

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls; // delph.forumalgerie.net

type
TAboutBox = class(TForm) // delph.forumalgerie.net
Panel1: TPanel; // delph.forumalgerie.net
ProgramIcon: TImage; // delph.forumalgerie.net
ProductName: TLabel; // delph.forumalgerie.net
Version: TLabel; // delph.forumalgerie.net
Copyright: TLabel; // delph.forumalgerie.net
Comments: TLabel; // delph.forumalgerie.net
OKButton: TButton; // delph.forumalgerie.net
Label1: TLabel; // delph.forumalgerie.net
private
{ Private declarations } // delph.forumalgerie.net
public
{ Public declarations } // delph.forumalgerie.net
end; // delph.forumalgerie.net

var
AboutBox: TAboutBox; // delph.forumalgerie.net

implementation

{$R *.DFM} // delph.forumalgerie.net

end.

alla
مبرمج مجتهد

عدد المساهمات : 687
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الكلمات المتقاطعة

مُساهمة  sdk11 في 13/6/2015, 8:53 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 109
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى