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

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

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

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 9:55 am

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


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


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


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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

-----------------------------------------------------
| 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-هدم - مادة غذائية تلقب بـا لسم لابيض (ن)
-----------------------------------------------------
| Fiche3.txt
-----------------------------------------------------
أفقيــــــــــا:

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

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

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

-----------------------------------------------------
| Fiche4.txt
-----------------------------------------------------
أفقيــــــــــا:

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

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

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

-----------------------------------------------------
| Fiche6.txt
-----------------------------------------------------
أفقيـــــا:

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

عموديا:

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

-----------------------------------------------------
| Fiche7.txt
-----------------------------------------------------
أفقيا :

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

عموديا:

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

-----------------------------------------------------
| Fiche8.txt
-----------------------------------------------------
أفقيا :

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

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

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

عموديا:

1)جمع كلمة -شغل
2)ذكر الماعز - للنفي
3)جمع اسم
4)ثلثا ولي
5) الفعل الرباغي من عجل
6) للتعريف - ثمر شجرة مباركة
7) عكس قبح - حرف جر
Coolضمير متصل
9)نفر على وزن فعيل - رمل مبعثر
10) مدخل المنزل
-----------------------------------------------------
هذا الملف خاص باسماء الملفات
-----------------------------------------------------
| Nom
-----------------------------------------------------
Fiche1
Fiche2
Fiche3
Fiche4
Fiche5
Fiche6
Fiche7
Fiche8
Fiche9

-----------------------------------------------------
هذا الملف خاص عدد الملفات
-----------------------------------------------------
| Num
-----------------------------------------------------
9
----

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

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

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

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 9:57 am

البرنامج



unit Unit1;

interface

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

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

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

implementation

uses Prop;

{$R *.DFM}



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

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowHint := true;
bool000 := False;
Open1Click(Sender);

end;

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

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

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

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

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

procedure TForm1.Label16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var i: integer;
s: string;
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 + ' - ';
Label16.Hint := s;
Label16.ShowHint := true;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure TForm1.Apropo1Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;

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

begin

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

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

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

procedure TForm1.corrction1Click(Sender: TObject);
begin
Button5Click(Sender);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;

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

AssignFile(f1,'Num');
Reset(f1);
Read(f1, s);
s := IntToStr(StrToInt(s) + 1);
CloseFile(f1);

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

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

// AssignFile(f2,'Nom');
ReWrite(f2);
for i := 1 to k do
WriteLn(f2, tab01[i]);
CloseFile(f2); Save1.Enabled := false;
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;
end;

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

end.



-

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

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

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

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 9:58 am

الرمز:

unit Prop;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;

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

var
AboutBox: TAboutBox;

implementation

{$R *.DFM}

end.

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

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

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


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