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

**mah11** 4/8/2013, 8:35 pm

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

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

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

ali 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تيهرت

ali 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حر

ali 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سدد

ali 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رومانيا

ali 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كا

ali 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فف

ali 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قنع

ali 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ما

ali 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

ali 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سنة - رقدت

ali 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-هدم - مادة غذائية تلقب بـا لسم لابيض (ن)

ali 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 مفيد - حيوان يمشي على رجلين

ali 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)عون و غوث - عاصمة الطوغو

ali 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)كانوا يقولون إن الفتات التي تاكل منها يوم زفافها تسقط لأمطار-عاصمتها هافانا

ali 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- نمشي - من أكبرمعرك الثورالتحريرية،

ali 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) مدينة إطالية

ali 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)لاعب جزائري - دواء طبيعي غير مركب

ali 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) مدخل المنزل

ali 25/5/2015, 10:59 am

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

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

Fiche1
Fiche2
Fiche3
Fiche4
Fiche5
Fiche6
Fiche7
Fiche8
Fiche9

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

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

ali 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

ali 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.

sdk11 13/6/2015, 8:53 am

بارك الله فيك

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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