Delphi en Arabe

50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www خطٕة خطٕة – POO انبشيجت بانًُحى نهكائٍ َظشة أعًق – انًؤششاث في دنفي انزّس ٔ انحًاس ىره المقالة تجمع بيه الجد ً اليزل،: تنبيو . ً يجب أن تقرأ ًفق ذلك بج46انخعايم يع َظاو ODAقٕاعذ انبياَاث، حعًق في انـ يقاسَت بيٍ يصًًاث انخقاسيش 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www )detibihorp( noitcirtseR :جفططحق١س  َٔشز أّّك :جٌّإؽشجش فٟ دٌفٟ  جٌؿضء جلأٚي –ODAضّْك فٟ جٌـ: لٛجّذ جٌر١حٔحش  جٌؿضء جلأٚي–ِمحسٔس ذ١ٓ ِقّّحش جٌطمحس٠ش : ِىٛٔحش دٌفٟ  ذص46جٌطْحًِ ِِ َٔحَ :أٚجِش دٌفٟ  جٌضس ٚجٌكّحس: ِىٛٔحش دٌفٟ  جٌؿضء جٌػحٟٔ–خيٛز خيٛز : جٌرشِؿس ذحٌّٕكٝ جٌىحتٕٟ  فٙـــشط جٌْذد ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com Restriction (prohibited) جزاثع دجَ"دييمت" ايىًع مجا ٍي جياَسثنا ةحاص حكسش اهعضت يتنا جياسثنا للاغتسا حيلافتا يف للاغتسلاا ٍي هلىمح حياًحيَىَامنا سيغ قىمح سثتعت اعثط ،للاغتسلاا ارهن متامي ءاطعإ ٌود اي ًهع كفاىي زايتخا و شاهجنا ًهع جياَسثنا تيثثت للاخ ٌىكت حمفاىًنا حيهًعو حهجسي حيسكف حيلافتلاا هيهع صُت. يدعتي لا حيلافتلاا جءاسمت ٌىيىمي ٍيرنا ٍيتثثًنا حثسَ15%حيدجت هيىتحت اي رخا ودعن عجاز اره و . يفند للاغتسا حيلافتا ٍي ساثتلاXE: Abstract: End-User License Agreement (EULA) for RAD Studio XE, Delphi XE, C++Builder XE, Delphi Prism XE, and RadPHP XE 2.1 LICENSE GRANT. Licensor grants to Licensee a non-exclusive, nontransferable, perpetual license (the “License”) to install this Product within the country (or in the case of a country within the European Union within the European Union) specified by Licensee‟s ship to address provided by Licensee in the ordering documentation for the Product at the time of purchase (“Licensed Country”) and solely for the development of software programs and/or management of its internal systems and data in the following manner: (a) If Licensee has purchased a Network Named User or Named User License, Licensee may designate one person in Licensee‟s organization ("Named User") the right to install the Product on one or more computers and use the Product within the Licensed Country, provided that only the Named User uses the Product. (b) If Licensee has purchased a Concurrent Users License, Licensee may install the Product on a network within the Licensed Country to be used concurrently on different computers by up to the authorized number of users for which Licensee has purchased a license provided that the Product is accessed and used only in the Territory. “Territory” means the geographical area in which the Product may be accessed and used. The use in the Territory shall be subject to the export restrictions set forth below. Territory may be any one, and only one, of the following three geographic areas: Americas Territory, EMEA Territory or Territory AsiaPac each as defined below. The geographic Territories are: „Americas Territory‟ including and limited to those geographical areas found within the boundaries of North and South America (but excluding Cuba). „Europe, Middle East and Africa Territory‟ or „EMEA Territory‟ including and limited to those geographical areas found within the boundaries of Europe, Middle East and Africa, including countries in the former Soviet Union (but excluding Syria, Iran and Sudan); „Asia Pacific Territory‟ or „AsiaPac Territory‟ including and limited to those geographical areas found within the boundaries of Asia and Australia/Pacific (but excluding North Korea). Except where prohibited by applicable law, transfer of the Product into a country (or in the case of the European Union, outside the EU) not identified on the ordering documentation at the time of purchase is prohibited and will void the license. Temporary usage of a Product outside the Licensed Country or Territory not to exceed 30 days while a user is traveling, is permitted. حكسش ٌأ بسعهن يفند يدتُي ءاضعأ ٍي حيهلأ ىهعيEmbarcadero ضعثن اهتاجتُي عيثت حًست لا ٍهف دييمتنات حيُعًنا ٌادهثنا دحا ٍي تُك ٌإ ،كنذ ىهعي مكنا و اعثط حيسايس باثسلأ حيتسعنا ٌادهثنا ىناعنا يف ٍيدًتعًنا ءلاكىنا دحا ٍي يفند ءاسش عيطتست. دضحىٌج :ٜذطٌّٕج زسجدئ ســـــــــــــــــ١قحططفج 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www جلإىحسجش–جٌؿضء جٌػحٟٔ َٔشز أّّك–جٌّإؽشجش فٟ دٌفٟ جٌّإؽشجش ٚو١ف١س جٌطْحًِ ِْٙح أوػش ِح ٠ك١ش جٌّرطذت١ٓ فٟ جٌرشِؿس ذذٌفٟ، رٌه لأْ جٌّرطذأ أِح ٘زٖ … ِٓ جٌىٍّحش جٌّكؿٛصز ٚغ١ش٘حod…elihw أٚ nigeb٠ّىٓ أْ ٠كضس ِْٕٝ ! فٍٓ ٠ؿذ ٌٙح قغحخ@ ^جٌشِٛص ٚجٌغش٠د أٔٗ ئْ عأي فلا ٠ىحد ٠ؿذ ِٓ ٠ؿ١د ّٓ عإجٌٗ، رٌه لأْ جٌزٞ ع١ؿ١د غحٌرح ِح ٠نيش ... ئٌٝ ؽشـ ِغحتً ِطٍْمس ذحٌْطحد ٚضمغ١ُ جٌزجوشز جٌك١س ٚسعَٛ ذ١حٔ١س لذ ٠ْؿض ّٕٙح ئْ –ٌٓ ٔطيشق ئٌٝ وً رٌه ذحٌطفق١ً، ٌىٓ عٕكحٚي جٌطشو١ض ٍّٝ أُ٘ جٌٕمحه جٌطٟ ضؿًْ ِٕه !ضٕطمً ئٌٝ ِشقٍس أخشٜ ّٚحٌُ آخش فٟ جٌرشِؿس ذذٌفٟ- وٕص ِرطذب ضٍُْ جٌّإؽشجش ٌ١ظ مشٚسز، خحفس ئْ وٕص ضرشِؽ فمو ضير١محش لٛجّذ ذ١حٔحش، عٌٙٛس .جٌرشِؿس ذذٌفٟ ؾٍْطٕح ٔطٕحصي فٟ قحلاش وػ١شز ّٓ جٌطْحًِ جٌّرحؽش ِِ جٌّإؽشجش ٠مَٛ ذٗ ِطشؾُ دٌفٟ ٚذحٌطحٌٟ ٠ض٠ذ ِٓ أوػش ف١ّحغ١ش أْ فّٙه ٌٍّإؽشجش ع١ؿٍْه ضطكىُ .لذسضه ٍّٝ جوطؾحف جلأخيحء أغٕحء جٌطٕم١ف ٍِفحش جٌّغحّذز فٟ دٌفٟ ضؾشـ ذؾىً ِفقً وً ِح ٠طٍْك ذحٌّإؽشجش، فلا ضطشدد فٟ . ِشجؾْطٙح ... ٌٕذخً جٌّٛمُٛ dehawhcaK ذمٍُ - دٌفٟجٌّإؽشجش فٟ 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ٌّٕػً جٌزجوشز ٍّٝ ؽىً ِؿّّٛس ور١شز ِٓ جلأعيش، ق١ع ٠ٕمغُ وً عيش ئٌٝ ِؿّّٛس ِٓ ٠قً ّذد جٌخلا٠ح جٌطٟ ٠ّىٓ أْ ٠كؿض٘ح ذشٔحِؽ ئٌٝ tib 23 ، فٟ دٌفٟ setybجٌخلا٠ح ٔغّ١ٙح لا ضكطٛٞ ٘زٖ جٌخلا٠ح ئلا ٍّٝ أّذجد وّح لذ ضىْٛ خحٌ١س لا . bG2 خٍ١س ٚ٘ٛ ِح ٠ْحدي 132 .ضكطٛٞ أٞ ل١ّس يارا حًثم ْزِ الأعذاد؟ جٌطٟ 79جٌم١ّس : ئر ٠ّىٓ جعطخذجِٙح لأٞ ِْٕٝ ِٕحعد، ِػلا!٘زٖ جلأّذجد ٌ١ظ ٌٙح ِْٕٝ ِكذد فٟ دٌفٟ، وّح ٠ّىٓ أْ جعطخذجِٙح etyBضخضْ فٟ خٍ١س ِٓ جٌزجوشز ٠ّىٓ جّطرحس٘ح ّذد ّٔٛٗ .79 جٌزٞ ٠طّػً ذحٌم١ّس aٌْشك جٌكشف ق١ض ذّمذجس خٍ١س )ضخق١ـ(٠طُ قؿض ؛ذشٔحِؿه فٟ )elbairaV( جلإّلاْ ّٓ أٞ ِطغ١ش ّٕذ فٟ ق١ع ٠ّىٕه جٌمشجءز ِٕٙح ٚجٌىطحذس ف١ٙح، ٠طُ رٌه جٌزجوشز ِٓ )أٚ أوػش قغد قؿُ جٌّطغ١ش( ، ِٚٓ خقحتـ ٘زج جٌّطغ١ش أْ ٌٗ جعّح ّٚٔٛح ٚل١ّس جٌزجوشزِٓ ٌرشٔحِؿه زجٌّكؿٛصجٌّغحقس .عُٕاٌٚ ;tseT margorP ;etyB :2raV ,1raV raV ;regetnI :3raV nigeB .dne :ٌىً ِطغ١ش )أٚ أوػش(و١ف ٠طُ قؿض ق١ض ) !ذؾىً خحىة(ٌطٛم١ف جٌفىشز عٕكحٚي أْ ّٔػً ... 1جٌخٍ١س 2جٌخٍ١س 3جٌخٍ١س 4جٌخٍ١س 5جٌخٍ١س 6جٌخٍ١س... انخهيت 1raV 2raV 3raV انًخغيش 21 54 051 انقيًت ، ىرْح جٌّطغ١شجش لا ضقيف ذٙزج جٌؾىً فٟ )stetcO 1 :ذحٌفشٔغٟ( etyb 1ضّػً وً خحٔس . جٌطشض١دجٌزجوشز، ٌٚ١ظ ؽشىح أْ ضىْٛ ِططحذْس ذٙزج 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www 1raVجٌّطغ١ش )etyb 1(أسذِ أمْحف ِح ٠كؿضٖ ) setyb 4( ٠كؿض 3raVلاقٌ أْ جٌّطغ١ش ٚ٠ْحدي أسذِ أمْحف قؿُ جٌّٕو regetnI ٘ٛ 3raVرٌه لأْ قؿُ ُٔٛ ذ١حٔحش جٌّطغ١ش :، لاقٌetyB ;)))regetnI(fOeziS(rtSoTtnI(egasseMwohS ;)))etyB(fOeziS(rtSoTtnI(egasseMwohS .عُٕاٌ ٚئّٔح ٠ْشف وً ق١ض ِٓ خلاي 3raV ٚ1raVٌىٓ جٌرشٔحِؽ لا ٠ْشف ِْٕٝ إرٌ، كيف يحذد انبشَايج يٕضع انًخغيشاث في انزاكشة؟ عُٕآٌِ خلاي )...، ئؾشجءِطغ١ش، غحذص، ؾذٚي، عؿ ًّ(٠كذد جٌرشٔحِؽ ِٛمِ أٞ وحتٓ . جٌىحتٓ ِٓ جٌزجوشزجٌك١ض جٌزٞ ٠ؾغٍٗ أٚي خٍ١س ِٓ ) sserddA( 31067E: ّؾش٠س، ِػحي-ذأّذجد عص- جفيلاقح–ٚجٌْٕٛجْ ٘ٛ ل١ّس ّذد٠س ٠ْرش ّٕٙح labolG( ئرج ِطغ١ش ّحَ 0ّٕذ جلإّلاْ ّٓ ِطغ١ش سلّٟ فٟ دٌفٟ ٠طُ ضٙ١ثطٗ ذم١ّس فٍٓ ٠طُ ضٙ١ثطٙح ٚعطأخز ل١ّس )elbairaV lacoL(، أِح ئرج وحْ ِطغ١ش ِكٍٟ )elbairaV .ّؾٛجت١س ضّػً ِكطٜٛ جٌك١ض جٌّؾغٛي ِٓ جٌزجوشز لأؾً جٌّطغ١ش يارا َعُي بانًؤششاث؟ ضّحِح ِػً جٌّٕو ( etyb 4جٌشلّ١س قؿّٗ جٌّطغ١شجش ُٔٛ ِٓ أٔٛجُ ٘ٛ )retnioP(جٌّإؽش ٔغّ١ٙح أسلحَ خحٔحش ِٓ جٌزجوشزٌطخض٠ٓ ذ١حٔحش ٚئّٔح ٠غطخذَ ٌطخض٠ٓ جي، غ١ش أٔٗ لا )lanidraC . عُأيٍ ِػلا؟ 2raVقغٕح، و١ف ٔكقً ٍّٝ ّٕٛجْ جٌّطغ١ش ، ٌٕؾح٘ذ rddA أٚ جٌطحذِ جٌّنّٓ @ٔكقً فٟ دٌفٟ ٍّٝ ّٕٛجْ أٞ وحتٓ ذحعطخذجَ جٌشِض : 2raVّٕٛجْ ;)))2raV@(regetnI(rtSoTtnI(egasseMwohS :)lamicedaxeH(ّؾش٠س -ٌْشمٗ ذؾىً أسلحَ عصأٚ ;))8 ,))2raV(rddA(regetnI(xeHoTtnI(egasseMwohS لا ضمرً ضّش٠ش ل١ُ ِإؽشجش xeHoTtnIٚ rtSoTtnIجٌطٛجذِ لأْ )(regetnIجعطخذِٕح جٌطغٍ١ف …ىرْح، جٌْٕٛجْ ٠خطٍف ِٓ ؾٙحص ئٌٝ آخش، ِٚرحؽشز 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ؟2raVP فٟ ِطغ١ش آخش 2raVج٢ْ، ِحرج ٌٛ لّٕح ذطخض٠ٓ ّٕٛجْ جٌّطغ١ش : ّٚٔػً رٌه فٟ جٌؿذٚي ،2raV يؤشش عهى انًخغيش 2raVPفٟ ٘زٖ جٌكحٌس ٔمٛي أْ جٌّطغ١ش ... 1ّٕٛجْ 2عُٕاٌ 3ّٕٛجْ 4ّٕٛجْ 5ّٕٛجْ 6ّٕٛجْ... انعُٕاٌ 1raV 2raV 2raVP انًخغيش 21 54 2عُٕاٌ انقيًت ٚئّٔح 2raVٚ٘ٛ لا ٠خضْ ل١ّس جٌّطغ١ش )retnioP (يؤشش ٠غّٝ 2raVPجٌّطغ١ش : اَخبّ :ّٕٛجٔٗ، ٚٔمَٛ ذزٌه ذؾٟء ِػً ;tseT margorp ;etyb :2raV ,1raV rav ;retnioP :4raV nigeb ;2raV@ =: 4raV .dne 5927694924 ئٌٝ 0ِٓ - َٔش٠ح–) dengisnU( أٚ جٌّإؽش ل١ُ ِٛؾرس retnioP٠كطًّ ٚ٘ٛ ٔفظ قؿُ جٌر١حٔحش FFFFFFFF ئٌٝ 0ِٓ : ّؾش٠س-ذحلأّذجد جٌْؾش٠س، أٚ ذأسلحَ عص .DROWD أٚ lanidraC ؟2raVP ِٓ خلاي جٌّإؽش 2raVً٘ ٠ّىٕٕح جٌكقٛي ٍّٝ ل١ّس جٌّطغ١ش ٠ّػً ِمرل 2raVP، ٚوأْ جٌّإؽش 2raVPأؾً، ذرغحىس ٔمشأ ِكطٜٛ جٌّطغ١ش جٌزٞ ّٕٛجٔٗ ذحٌشِض 2raVP٠ّىٕٕح فٟ دٌفٟ لشجءز جٌّطغ١ش جٌزٞ ّٕٛجٔٗ ل١ّس جٌّإؽش . 2raVٌٍّطغ١ش ^2raVP rav ;etyB :2raV ;retnioP :2raVP nigeb ;2 =: 2raV ;2raV@ =: 2raVP ;)))^2raVP(etyB(rtSoTtnI(egasseMwohS 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www :2raVP ّرش ِإؽشٖ 2raVوّح ٠ّىٕٕح ضغ١١ش ل١ّس جٌّطغ١ش ;3 =: )^2raVP(etyB :جٌّإؽشجش لغّحْ أٞ جٌّإؽشجش جٌطٟ لا ضإؽش ٍّٝ ّٔو ِكذد، ٚ٠ّىٓ جعطخذجِٙح :retnioP depytnU .retnioP : Pٌٍطأؽ١ش ٍّٝ أٞ وحتٓ، ٚضْشف ذحٌُٕٛ ٟٚ٘ جٌّإؽشجش جٌطٟ ضغطخذَ ٌٍطأؽ١ش ٍّٝ ُٔٛ ِكذد ِٓ جٌر١حٔحش، : retnioP depyT ، rahC^، regetnI^ ،etyB^: ، ِػحي^ٚضْشف ذأقذ أٔٛجُ جٌر١حٔحش ٠غرمٗ جٌشِض ...naelooB^ ٟٚ٘ ٍّٝ sap.metsys فٟ جٌّىطرس Pَُِْ ٘زٖ جلأٔٛجُ ِْشفس فٟ دٌفٟ ِغرمح ذلاقمس ...naelooBP، rahCP، regetnIP ،etyBP: جٌطشض١د depytnU(ٌ١ظ ٌٗ ّٔو ِكذد )retnioP :2raVP( لّٕح ذطْش٠ف ِإؽش ، ٌٕخرش ِطشؾُ دٌفٟ أْ ُٔٛ جٌم١ّس جٌطٟ etyB، ٌزٌه جعطخذِٕح ٕ٘ح جٌطغٍ١ف ئٌٝ )retnioP .etyB ٟ٘ raVP٠إؽش ٍّ١ٙح ٌزٌه ٠ؿد ضغ١١ش etyBPئٌٝ )ٌٚ١ظ جٌم١ّس(ٔفظ جٌٕط١ؿس ٠ّىٓ جٌكقٛي ٍّ١ٙح ذطغٍ١ف جٌّإؽش :ِٛمِ جٌمٛط ;))^)2raVP(etyBP(rtSoTtnI(egasseMwohS :etyBيؤشش عهى ٔمَٛ ذطْش٠ف جٌّإؽش ذُٕٛ 2raVPٌطكذ٠ذ ُٔٛ جٌم١ّس جٌطٟ ٠إؽش ٍّ١ٙح rav ;etyB :2raV ;etyB^ :2raVP nigeb ;2raV@ =: 2raVP ;5 =: ^2raVP ;))2raV(rtSoTtnI(egasseMwohS لا ٠غ١ش ِٓ قؿُ جٌّإؽش، ذْرحسز أخشٜ 2raVP ضغ١١ش ُٔٛ جٌر١حٔحش جٌزٞ ٠إؽش ٍّ١ٗ :يلاحظت .setyb 4 ع١رمٝ 2raVPٚصْ جٌّإؽش ؟2raVPً٘ ٠ّىٕٕح ئٔؾحء ِإؽش ٍّٝ جٌّإؽش ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com أذرٌّج ظفٔ كفٚ حْرى: var Var1, Var2: Byte; PVar2: ^Byte; PPVar2: ^Integer; begin Var1 := 2; Var2 := 3; PVar2 := @Var2; PPVar2 := @PVar2; Pointer(PPVar2^) := @Var1; ShowMessage(IntToStr(Byte(PVar2^))); حّذ ،ش١خأ ءٟؽ ٟمذPointer ٗغفٔ ٛ٘ Integer ش١غطِ ٟف ش١غطِ ْجّٕٛ ٓ٠ضخض حٕٕىّ٠ ْرئ ، ؟شخآ سزقج ،لاPointer ظ١ٌ Integer ( ْأ حن٠أ شوزض ،ُؿكٌج ظفٕذ حّٙٔأ ُغسInteger يحؿِ سرٌحع ُ١ل ًّؾ٠) سثىحخ سذحطىٌج ٖز٘ٚ: var Var1: Byte; Var2: Integer; begin Var1 := 3; Var2 := @Var1;//أطلخا بنه ش١غطٌّج ْجّٕٛ ٓ٠ضخض حٕٕىّ٠ ف١و ْرئVar1 ٞدحّ ش١غطِ ٟف Var2؟ ف١ٍغطٌحذ َٛمٔ سىحغرذ(Pointer ٌٝئ Integer:) Var2 := Integer(@Var1); ش١غطٌّج ّٓ ْلاّلإج ُط٠ ْأ حٕ٘ ففلأجٚVar2 ُٕٛذ Cardinal ظ١ٌٚ Integer. ش١غطٌّج ْأ ُؾشطٌّج شرخٔ زءجشمٌٍٚVar2 هٌر ٓىّ٠ ،دذّ ٍّٝ ظ١ٌٚ ْجّٕٛ ٍّٝ ٞٛطك٠ ّٓنٌّج ً٠ٛكطٌج ِذحض َجذخطعحذPtrٍٟ٠ حّو فشٌّْجٚ : function Ptr(Address: Integer): Pointer; يحػِ: ShowMessage(IntToStr(Byte( Ptr(Var2)^ ))); 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www :) ؾذ٠ذregetnIّذد ( raVP٠ّىٕٕح ئٔؾحء ٔغخس ؾذ٠ذز ِٓ . regetnI ِإؽش ٍّٝ raVPٌ١ىٓ rav ;regetnI^ :raVP nigeb إنشبء نسخة جديدة // ;)raVP(weN ;3 =: ^raVP ;)))^raVP(regetnI(rtSoTtnI(egasseMwohS //تحرير المؤشر ;)raVP(esopsiD weN ٍّٝ غ١ش ُٔٛ ِكذد، retnioP depytnU لا ٠ّىٕٕح ئٔؾحء ٔغخس ِٓ ِإؽش :يلاحظت أٚ etyBP: retnioP depyT ضغطخذَ ِِ ِإؽشجش ٍّٝ أٔٛجُ ِكذدز esopsiDٚ ...regetnIP ٚفٟ وً ِشز ) noitcnuf-oduespأٚ ( weNجلإؾشجء -٠ّىٕٕح ئٔؾحء ّذز ٔغخ ذحعطخذجَ ؽرٗ ، ٚلا ٠ّىٕٕح جٌٛفٛي ئٌ١ٗ ئلا ِٓ خلاي )suomynonA(ٔكقً ٍّٝ ِطغ١ش ؾذ٠ذ لا جعُ ٌٗ .ِإؽشٖ لأدجء ٔفظ جٌغشك، غ١ش أْ ٘ز٠ٓ جلإؾشجء٠ٓ meMeerF ٚ meMteG٠ّىٓ جعطخذجَ .esopsiD ٚ weNّحِ١ٓ ٚلا ٠خقحْ ُٔٛ ِكذد ِٓ جٌّإؽشجش، ٚجلأفنً جعطخذجَ ) !أٚ ؾٍْٕحٖ ٠إؽش ٍّٝ ِطغ١ش آخش (ٚئرج لّٕح ذأؾحء ٔغخس أخشٜ ذحعطخذجَ ٔفظ جٌّإؽش فغ١ن١ِ ِٕح ّٕٛجْ جٌّطغ١ش جلأٚي، ٚذحٌطحٌٟ ٌٓ ٔطّىٓ ِٓ جٌٛفٛي ئٌ١ٗ ٚلا جٌمشجءز ِٕٗ :ٚ٠قرف ق١ٕٙح ِإؽش ٠ط١ُ، ِػحي )kaeL yromeM(فٟ جٌزجوشز )أٚ ضغشخ(ٚع١غرد ٔض٠ف rav ;regetnI :X ;regetnIP :IP nigeb ;)IP(weN ;5 =: ^IP ;1 =: X 5هنب تضيع القيمة //;X@ =: IP ;)))^IP(regetnI(rtSoTtnI(egasseMwohS ... 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www tsiLT ئلا ئرج لّٕح ذكفٌ ّٕٛجٔٗ فٟ ِإؽش آخش، ٚفٟ ِػً ٘زٖ جٌكحلاش ٠ّىٕٕح جعطّْحي جٌقٕف :جٌزٞ ٠ّىٓ جعطخذجِٗ وؿذٚي ِٓ جٌّإؽشجش ;tsiLT :tsiLyM rav ;)tcejbOT :redneS(kcilC1nottuB.1mroFT erudecorp ;etyB^ :etyByM rav nigeb ;etaerC.tsiLT =: tsiLyM yrt ;)etyByM(weN ;54 =: ^etyByM ;)etyByM(ddA.tsiLyM ;)))^]0[tsiLyM(etyB(rtSoTtnI(egasseMwohS ;)etyByM(esopsiD yllanif ;eerF.tsiLyM ;dne ;dne لرً ّشك جٌٕحضؽ فغٕن١ِ )esopsiDذحعطخذجَ ( etyByMٌىٓ، ئرج لّٕح ٕ٘ح ذطكش٠ش جٌّإؽش ، ِِ ) فّح فٛق جٌطٟ ضغ١ش جٌزجوشز ذيش٠مس ِخطٍفس6002ِِ جخطلاف فٟ ٔغخ دٌفٟ ( 54جٌم١ّس ٠ّىٓ فكـ رٌه ( ٕ٘ح ٠غرد ٔض٠ف فٟ جٌزجوشز etyByMجٌطٕر١ٗ ئٌٝ أْ ّذَ ضكش٠ش جٌّإؽش فٟ ئفذجسجش eurT ٍّٝ جٌم١ّس nwodtuhSnOskaeLyromeMtropeRذنرو جٌّطغ١ش .) فٛق6002دٌفٟ :يٍ اسخخذاياث انًؤششاث فّٙه جعطخذجَ جٌّإؽشجش ٠ؿٍْه ضطكشس ِٓ ل١ٛد وػ١شز ضٛجؾٙٙح أغٕحء جٌرشِؿس ذذٌفٟ، ٠ؾْش .ذٙزٖ جٌم١ٛد ذْل ِٓ ٠غطخذَ ٌغحش ذشِؿس لا ضذُّ جعطخذجَ جٌّإؽشجش :جعطخذجَ جٌّإؽشجش ٠ّٕكه ضكىُ أوػش فٟ جٌٍغس ٚ٠ىغش قذٚدن جٌرشِؿ١س، ِػحي ٠ّىٓ أْ ضأخز ل١ُ ِخطٍفس أغٕحء ضؾغ١ً جٌرشٔحِؽ، خلافح )selbairaV(ٍُْٔ أْ جٌّطغ١شجش ...جٌطٟ ضرمٝ ل١ّطٙح غحذص ى١ٍس صِٓ ضؾغ١ً جٌرشٔحِؽ )stnatsnoC(ٌٍػٛجذص ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com ْ٢ج ذْذ ظ١ٌ... procedure ChangeConst(const Constant; var Value; Size: Integer); begin Move((@Value)^, (@Constant)^, Size); end; procedure TForm1.Button1Click(Sender: TObject); const ConstStr: string = 'String Value'; var VarStr: string; begin VarStr := 'New String Value'; ShowMessage(ConstStr); ChangeConst(ConstStr, VarStr, SizeOf(String)); ShowMessage(ConstStr); end; سّ١ل قحفسئ ،ٗ١ٍّ شح١ٌٍّْج َُِْ ءجشؾئ ٓىّ١ف ،ّٟلس ش١غطِ ٛ٘ شؽإٌّج ْأ حّذ :p1 := p2 ، ٗطّ١ل ِٓ زدح٠ضٌج :Inc(p)حِٕٙ ؿحمٔلإج ٚأ :Dec(p) شؽإٌّج سّ١ل زدح٠ص ْأ ٍّٝ ٗ١رٕطٌج ِِ ،p سجذمّذDسجذمّذ ْجٌْٕٛج سقجصئ ْٟٕ٠ :D ×( ٗ١ٍّ شؽإ٠ ٞزٌج ش١غطٌّج ُؿقp)يحػِ ،: var P: PDouble; // بهيلع رشؤي تيلا ةنبلخا مجح8 begin P := Ptr($50000); // ةيئادتبا ةميقب رشؤلما ةئيته Inc(P); // P = $50000 + 1 * SizeOf(Double) = $50008 ... Inc(P, 6); // P = $50008 + 6 * Sizeof(Double) = $50038 سٚشٌّحذ ،س٠سجشىض سمٍق ّٓم س١قٌٕج ًعلاغٌج ٚأ يٚجذؿٌج ِِ شجشؽإٌّج َجذخطعج ُحؽ هٌزٌ شؽإٌّج سّ١ل ٟف زدح٠ص ًو ِِ سمقلاٌج سٔحخٌج ٍّٝ ش١ؽأطٌج يلاخ ِٓ ُ١مٌج ِ١ّؾ ٍّٝ. ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com تًيق واذخخساب شيشًخنا(ششؤي) تيعجشي: ش١غطٌّج سّ١ل ش١١غض دٛٔ ٟض٢ج يحػٌّج ٟفxٟتجذذ ءجشؾئ يلاخ ِٓ : procedure ChangeValue(i: Integer); begin i := 0; end; procedure TForm1.Button1Click(Sender: TObject); var x: Integer; begin x := 5; ChangeValue(x); ShowMessage(IntToStr(x)); end; سّ١ل ش١غطض ٌٓ حْرىx ءجشؾلإج ٟف ش٠شّطٌج ْلأ ChangeValue ْأ ٞأ ،سّ١مٌج َجذخطعحذ ُض ش١غطٌّج سّ١لi شزخأ سّ١ل x سّ١ل ش١١غطذ ءجشؾلإج َحلٚ i ٌٝئ 0 سّ١ل ٝمرض حّٕ١ذ ،xحٌٙحق ٍّٝ . ٗ١ؾٛطٌج سفحماذ ًٙع ًكٌج ْأ حْ١ّؾ يٛمٕع ،حْرىvar (أذرٌّج ظفٔ َذخطغ٠ ٞزٌج): procedure ChangeValue(var i: Integer); ٜشخأ سؿِشذ شحغٌ ٟف( سغٌCلاػِ ) ش٠شّض ٟغرٕ٠ ْحو ٌٟحطٌحذٚ ،سم٠شيٌج ٖزٙذ ش٠شّض ذؾٛ٠ لا ٟفٌد ٟف ًذحم٠ حِ ٛ٘ٚ ،شؽإٌّج يلاخ ِٓ ً٠ذْطٌج ُغ ش١غطٌّج سّ١ل ّٓ حمّٛ شؽإٌّج: procedure ChangeValue(i: PInteger); begin i^ := 0; end; procedure TForm1.Button1Click(Sender: TObject); var x: Integer; begin x := 5; ChangeValue(@x); ShowMessage(IntToStr(x)); end; ش٠شّطذ حّٕل ْأ ذْذ ْ٢ج ٌقلاْجّٕٛ ش١غطٌّج x ءجشؾلإج ٌٝئ ChangeValue جز٘ َٛم١ٌ شؽإٌّج ٍّٗك٠ ٞزٌج ْجٌْٕٛج ٜٛطكِ سّ١ل ش١١غطذ ش١خلأجi. ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com ٗؾٌّٛج َجذخطعحذ ًىؾٌّج ًق حٕٕىّ٠ٚ ؟ جز٘ ًو جرحٌّvar سٌٛٙغذ ! حِذّٕ جرحٌّ حن٠أ نسذٕعٚ ،ؽِحٔشرٌج نٍٛع ٟف شػوأ ُىكطٌٍ ٜشخأ شجسذل هكّٕ١ع جز٘ ْلأ يجٚد لْذ َجذخطعج ٗؾجٛٔWindows API. سغٌ ٟف شجشؽإٌّج فشْض حن٠أC ضِشٌج ظفٔ سفحماذ (*) يحػِ ،ش١ؽأطٌٍ َذخطغ٠ ٞزٌج: int *p, x = 5; p = &x; printf("Addr: 0x%p = %d\n", p, *p); ف٠شْطٌج سغ١ف ٓ١ذٚ َجذخطعلاج سغ١ف ٓ١ذ ك٠شفطٌج ُض ،ٟفٌد ٟف: var P: ^Integer; X: Integer; begin X := 5; P := @X; ShowMessage(Format('Addr: $%p = %d', [p, p^])); شلاؿغٌج َذخطغض حِ حرٌحغ ٟفٌد ٟف(Records) أذرٌّج ظفٔ كفٚ ًؿغٌج ٍّٝ شؽإِ يلاخ ِٓ يحػِ ،كذحغٌج: type PPerson = ^TPerson; TPerson = record Name: string[80]; Age: byte; end; procedure SetAge(APerson: PPerson; AValue: Byte); begin APerson^.Age := AValue; end; procedure TForm1.Button1Click(Sender: TObject); var Person: TPerson; begin Person.Name := 'Amine'; Person.Age := 62; SetAge(@Person, 65); ShowMessage(IntToStr(Person.Age)); end; 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www :يلاحظاث ٍّٝ جٌغؿً )nosrePT^ = nosrePP(فٟ ٘ز جٌّػحي جلأخ١ش لّٕح ذحلإّلاْ ّٓ ِإؽش : ٚ٘زج غ١ش ِؾشُٚ أفلا، لاقٌ! لرً ضْش٠ف جٌغؿً ٔفغٗnosrePT epyt ;nosrePT^ = nosrePP drocer = nosrePT ... غ١ش أٔٗ ِّىٓ فٟ ٘زٖ جٌكحٌس، ٚ٘ٛ ِٓ ئقذٜ خقحتـ جٌّإؽشجش، ٌىٓ ٠ُؾطشه ف١ٗ أْ ، ٘زٖ جٌخحف١س ضغطخذَ ذىػشز، خحفس ّٕذ ضْش٠ف عؿً epyt٠ىْٛ مّٓ ٔفظ جٌك١ض :ئقذٜ ّٕحفشٖ ِإؽش ٌٕفغٗ، ِػحي epyt ;nosrePT^ = nosrePP drocer = nosrePT ;nosrePP :noS ;etyb :egA ;]08[gnirts :emaN ;dne :أ٠نح فٟ ٘زج جٌّػحي ٠ّىٕٕح جلاعطغٕحء ّٓ جٌّإؽش ٚضّش٠ش ِطغ١ش ِٓ جٌغؿً ;)etyB :eulaVA ;nosrePT :nosrePA rav(egAteS erudecorp ٌطغ١١ش ل١ّس nosrePT ٕ٘ح ع١مَٛ ذأؾحء ٔغخس وحٍِس ِٓ جٌغؿً egAteSغ١ش أْ جلإؾشجء ... ، ٚ٘ٛ ِح ٠ؿًْ جلأِش أغمً خحفس ِِ مخحِس قؿُ جٌغؿً ٚوػشز جلإؾشجءجشegAٚق١ذز .ضّش٠ش جٌّإؽش فٟ ٘زٖ جٌكحٌس أَٔف ٚأعشُ : ٠ّىٓ ئّ٘حٌٗ فٟ قحٌس جٌطْحًِ ِِ جٌغؿلاش ٚٔىطفٟ ِرحؽشز ذـ^ذخقٛؿ ;eulaVA =: egA.nosrePA :إعذاو انًؤشش ٚلّٕح ذطكش٠ش ل١ّس x جٌزٞ ٠إؽش ٍّٝ ِطغ١ش 1p ٠أخز ل١ّس جٌّإؽش 2pئرج ؾٍْٕح جٌّإؽش dilavnI: ٚٔكقً ٍّٝ سعحٌس جٌخيأ2p، فغ١ن١ِ جٌّإؽش esopsiD ذحعطخذجَ 1pجٌّإؽش :، ِػحي، رٌه لأْ جٌّإؽشجش لا ضْطشف ذفشك جٌطىحًِ جٌّشؾْٟ noitarepo retniop 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www rav ;regetnI^ :2p ,1p ;regetnI :x nigeb ;5 =: x ;x@ =: 1p ;1p =: 2p ;)1p(esopsiD الخطأهنب //;))^2p(rtSoTtnI(egasseMwohS فٟ وً 0ٚع١أخز جٌم١ّس ( ٠ّىٕٕح جٌمٛي أٔٗ لا ٠إؽش ٍّٝ ؽٟء lin ٠أخز ل١ّس 1pذؿًْ جٌّإؽش فٟ جٌّػحي x ٚذحٌطحٌٟ ٔكقً ٍّٝ ل١ّس جٌّطغ١ش !غ١ش أٔٗ ِح ٠ضجي ِٛؾٛد )دٌفٟ ئٌٝ قذ ج٢ْ :جٌغحذك rav ;regetnI :x ;regetnIP :2p ,1p nigeb ;5 =: x ;x@ =: 1p ;1p =: 2p ;lin =: 1p تمت بنجبح//;))^2p(rtSoTtnI(egasseMwohS ٌْٕٛجْ خٍ١س ِكذدز ِٓ جٌزجوشز، غ١ش أْ ٘زٖ جٌخٍ١س ِٓ )linضخطٍف ّٓ (لذ ضىْٛ ٌٍّإؽش ل١ّس جٌزجوشز لذ لا ضكًّ أٞ ل١ّس، ٚذحٌطحٌٟ لا ٠ّىٓ جٌؿضَ ذأْ قطّح ٌىً ِإؽش ل١ّس ٠إؽش ٍّ١ٙح فٟ !جٌزجوشز ، ٚئلا فغطأخز ل١ّس ّؾٛجت١س لذ )ل١ّس جذطذجت١س(جٌّإؽشجش ِػً ذم١س جٌّطغ١شجش ضكطحؼ ئٌٝ ضٙ١ثس ئْ قحٌٚص جٌىطحذس ِٓ خلاٌٙح، )noitaloiV sseccA(ضطغرد فٟ قذٚظ أخيحء غ١ش ِطٛلْس خحفس ئْ وحٔص ضإؽش خحسؼ جٌك١ض جٌّكؿٛص ٌٍرشٔحِؽ فٟ جٌزجوشز، أٚ لذ ضطغرد فٟ ضغ١ش ل١ُ .وحتٕحش أخشٜ فٟ جٌرشٔحِؽ !كم انكائُاث ْي يؤششاث ، ق١ع ٠ّىٕه ئٔؾحء )ئؾشجءجش ٚضٛجذِ( ٘ٛ وحتٓ ٌٗ ِؿّّٛس ِٓ جٌّٕح٘ؽ tcejbOTجٌقٕف ...ٔغخس ِٕٗ فٟ ٚلص، ٚضكش٠شٖ ِٓ جٌزجوشز ّٕذ جلأطٙحء ِٕٗ ٍّٝ weN ئٔؾحء ٔغخس ِٕٗ ٠ْٕٟ جعطخذجَ جلإؾشجء يؤشش ٘ٛ فٟ جٌٛجلِ tcejbOTجٌىحتٓ ...esopsiDِإؽشٖ ٚضكش٠شٖ ِٓ جٌزجوشز ٠ْٕٟ جعطخذجَ جلإؾشجء ٌُ ُضٕؾأ ذْذ، ضْٕٟ ِكحٌٚس جٌطأؽ١ش ٍّٝ ّذَ tcejbOTأٞ ِكحٌٚس لاعطخذجَ ٔغخس ِٓ وحتٓ ...noitaloiV sseccAسعحٌس جلاعطػٕحء : ٚذحٌطحٌٟ 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www أٞ ضشوٗ ٍِْك esopsiD لذ ٠ْٕٟ ّذَ ضكش٠ش ِإؽش ذحعطخذجَ tcejbOTّذَ ضكش٠ش أٞ وحتٓ !فٟ جٌزجوشز فٟ ِىحْ ِؿٙٛي لا ٠ّىٓ جٌٛفٛي ئٌ١ٗ ضْٕٟ ؾًْ جٌغشك )tcejbOTق١ع ولاِٙح وحتٓ ( 1tcejbO =: 2tcejbO: جٌىطحذس ! ٚلا ضْٕٟ ٔغخ جٌم١ُ 1tcejbO ٠إؽش ٍّٝ ٔفظ جٌم١ّس جٌطٟ ٠إؽش ٍّ١ٙح جٌغشك 2tcejbO tcejbOTوً جلأفٕحف جٌطٟ ضؾح٘ذ٘ح فٟ دٌفٟ ضٕكذس ِٓ علاٌس جٌقٕف جلأخ ٚ٠ٕيرك ٍّ١ٙح ٔفظ ... nottuBT، tnenopmoCT، slortnoCT، mroFTذّح ف١ٙح ...جٌكذ٠ع ...يؤششاثٔفظ جٌىلاَ ّٓ جلإؾشجءجش ٚجٌطٛجذِ وٍٙح فٟ جٌٛجلِ ؟)LLD(أضزوش ىش٠مس جلاعطذّحء جٌذ٠ٕحِ١ىٟ ٌّٕح٘ؽ ِىطرحش جٌشذو جٌذ٠ٕحِ١ى١س epyT ...نمط مؤشر على إجراء // ;)gnirtS :maraP rav(erudecorp = corPLLDT raV ;regetnI : LLDh ...الإجراءمؤشر على // ;corPLLDT :corPyM ;gnirtS : S nigeb ;)'lld.LLDyM'(yrarbiLdaoL =: LLDh yrt ... حفظ قيمة مؤشر // ;)'corPLLD' ,LLDh(sserddAcorPteG =: corPyM@ nehT liN >< corPyM@ fI ;)S(corPyM yllanif ;)LLDh(yrarbiLeerF ;dne ;dne وً ِح فٟ جلأِش أْ دٌفٟ ٠غًٙ ٍّ١ٕح جٌرشِؿس ٚ٠ش٠كٕح ِٓ ضْد جٌطْحًِ جٌّرحؽش ِِ جٌّإؽشجش، ...ضكٛ٠ً جٌم١حدز ئٌٝ ىش٠مس أوػش ٠ذٚ٠س- ئرج جعطٍضَ جلأِش–فٟ ق١ٓ ٠ّىٕٕح :يلاحظت ٌُ ٔطيشق ئٌٝ جٌؿحٔد جٌٍّْٟ جٌزٞ ٠ر١ٓ جٌفحتذز جٌٍّْ١س ِٓ جٌّإؽشجش، ٚعٕطشن رٌه ٌّٛجم١ِ لاقمس ئْ ؽحء جلله، ق١ع عٕطكذظ ّٓ ذْل أٔٛجُ جٌّإؽشجش جٌطٟ ٌٙح ِْحٍِس خحفس ٌُٚ .ٔطيشق ئٌ١ٙح فٟ جٌّٛمُٛ 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www جٌؿضء جلأٚيODAحعًق في انـ ٟ٘ ِٓ عٛء ODAأغٍد جٌّؾحوً جٌطٟ ٠ٛجؾٙح جٌّرشِؿْٛ ّٕذ ذشِؿس جٌطير١محش ذحٌـ جٌقك١ف ٌٙح ضأغ١ش ِرحؽش ٍّٝ ٔؿحـ rosruC لأْ جخط١حس جٌـ rosruCجٌـ جعطّْحي ٚ جخط١حس : ٚفّٙٙح ُِٙ ٌٍغح٠س ، ٔزوش ذْل ِٓ جٌّؾحوً ODA جٌّرشِؽ ذحٌـ جٌطير١ك جٌطغؿ١لاش جٌّنحفس ِٓ ىشف ِغطخذَ لا ضَٙش ّٕذ آخش  جلاضقحيذية فطف  سعحٌس خيأ أغٕحء ضْذ٠ً أٚ قزف ضغؿ١ً ِْذي أٚ ِكزٚف ِٓ ىشف ِغطخذَ آخش  لا ٠ّىٓ جٌشؾُٛ ٌٍخٍف  ٌٍمشجءز فمو  1- ٟ٘ tnuoCdroceRل١ّس جٌـ  ,epyTrosruC: ٌزج ٠ؿد ٍّٝ جٌّرشِؿ١ٓ أْ ٠ىٛٔٛج ٍّٝ دسج٠س وحف١س ذـحٌخقحتـ . لإٔؾحء ضير١ك أوػش وفحءز epyTkcoL ,noitacoLrosruC : teSataD، rosruC، tesdroceRٔرذأ ذؾشـ ذْل جٌّقيٍكحش ِغطٍّْس ذىػشز lilajdledba.malذمٍُ – لــــٛجّـذ جٌر١ــحٔحش 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ' ِؿُّٛ جٌطغؿ١لاش ' : tesdroceR ضغّٝ )swor( ٠كطٛٞ ٔطحتؽ جلإعطْلاَ ، جٌٕطحتؽ ضطىْٛ ِٓ عيٛس tcejbo tesdroceR ، وً جلأّّذز ضخضْ )sdleif(ضغّٝ قمٛي )snmuloc(ٚ أّّذز )sdrocer(ضغؿ١لاش . tesdroceR فٟ ِؿّّٛس قمٛي جٌـ tcejbo dleiFفٟ tesdroceR جٌغيٛس ِٓ لحّذز جٌر١حٔحش ٠مَٛ ODAق١ٓ ٠غطمرً ضير١ك لٛجّذ جٌر١حٔحش . ذطغٍ١ف جٌر١حٔحش ٚ جٌٍّْ١حش جٌّغّٛقس ٍّٝ ٘زٖ جٌر١حٔحش tcejbo : rosruC ٠ّىٓ جٌمٛي أْ جٌىحتٓ ODAٟ٘ ٘١ىً جٌر١حٔحش جٌزٞ ٠خضْ ٔطحتؽ جلإعطْلاِحش ، فٟ جٌـ ٚ جٌـ rosruC ٠غًٙ جٌٛفٛي ئٌٝ جٌر١حٔحش فٟ جٌـ MOC ّرحسز ّٓ وحتٓ tesdroceR . tesdroceR ٘ٛ جٌزٞ ٠كذد جٌٍٛحتف جٌّطحقس ٌٍىحتٓ epyTrosruC tesdroceR لإقطٛجء ِؿّّٛس جٌغيٛس جٌّٕيم١س جٌّكطفٌ ذٙح ٌٍـ rosruC ٠غطًّْ جٌـ ' ِؿُّٛ جٌر١حٔحش ' :teSataD ضير١مه . ٟٚ٘ ّحتٍس ِٓ جٌىحتٕحشteSataDجٌٛقذز جلأعحع١س ٌٍٛفٛي ئٌٝ جٌر١حٔحش ٟ٘ جٌـ . ٌٍٛفٛي ٌمحّذز جٌر١حٔحشteSataD٠غطخذَ جٌـ . ٠ّػً ِؿّّٛس ِٓ جٌغؿلاش ِٓ لحّذز ذ١حٔحش َِّٕس فٟ ؾذٚي ِٕيمٟteSataDوحتٓ جٌـ لذ ضىْٛ ٘زٖ جٌغؿلاش ِٓ ؾذٚي لحّذز ذ١حٔحش ٚجقذ، أٚ أٔٙح لذ ضّػً ٔطحتؽ ضٕف١ز جعطْلاَ أٚ .ئؾشجء ِخضْ جٌطٟ ضغطخذِٙح فٟ ضير١محش لٛجّذ جٌر١حٔحش ضٕكذس ِٓ teSataDؾّ١ِ جٌىحتٕحش جٌـ ، ٚ ضشظ قمٛي جٌر١حٔحش، ٚجٌخقحتـ، ٚجلأقذجظ ، ٚ جٌّٕح٘ؽ ِٓ ٘زٖ teSataDT.BD : ٔزوش ِٕٙح ، جٌفثس ,,, teSataDLQSmotsucT / teSataDODAmotsucT / teSataDEDBT ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com TcustomADODataSet حِٕٙ سذكٕ٠ : ( TADODataSet, TADOTable , TADOQuery , TADOStoredProc) حٍٙو س١ٌحطٌج ـتحقخٌج ٟف نشطؾض : CursorType, CursorLocation, LockType, MarshalOptions ـهن لٕصٕناRecordset ٍي TcustomADODataSet : ـٌجشفٛ٠TcustomADODataSet.Recordset ٌٝئ شؽحرٌّج يٛفٌٛج ٓتحىٌجRecordset ـٌج ٟف ADO . ـٌجRecordsetٌٝئ يٛفٌٛج حٌٙلاخ ِٓ ُط٠ ٟطٌج سٙؾجٌٛج ٟ٘ Recordset ـٌ ADO . ذّٕ فطفADO dataset سّ١ل ٓ١١ْض ح١تحمٍض ُط٠ ، Recordset يٛفٌٛج شفٛض ٞزٌج سٙؾجٚ ٌٝئ شلاؿغٌج ٌٝئ . ظذكٌج قلاىئ ذْذ ٝطق سّ١مٌج ٖز٘ َذخطغض ْأ ٟغرٕ٠ لا OnRecordsetCreate . َجذخطعجRecordset ٌٝئ شؽحرٌّج يٛفٌٍٛ ٓتحىٌج ٌٝئRecordset ـٌج ٟف ADO ٟطٌج ْٛىٌّج حٍٙػّ٠dataset . ٚ ـتحقخ َجذخطعحذ ك١ريطٌٍ فّغ٠ جز٘ شؽحرٌّج يٛفٌٛج ِؾشِ ٓتحىٌج ؽ٘حِٕRecordsetسذقٌّج . ٓتحو ٌٝئ يٛفٌٛجRecordset د١ٌحعأٚ ـتحقخ ِٓ زدحفطعلاٌ ؿحخ ًىؾذ ذ١فِ ٓتحىٌجRecordsetٟطٌج شحٔٛىِ ٟف شَٙض لا ADO dataset . ؼحطك٠ حِ جسدحٔ ٓتحىٌج ٌٝئ يٛفٌٍٛ ك١ريطٌج Recordsetزشؽحرِ . شوزٔ ْأ ٓىِّ سٌحق يٛفٌٛج جز٘ ًػِ َذخطغ٠ : ٗ١ؾٛضRecordset ٟف ُ١ل ِؾش٠ َلاْطعئ ز١فٕض ِٓ ؽطٕض ٟطٌج ْٛىٌّجTADOCommand . ـٌج ـ١قخض ،سٌحكٌج ٖز٘ ٟفRecordset ِٓ سْؾشٌّج ز١فٕض(TADOCommand ) س١فحخٌج ٌٝئ زشؽحرِ Recordset . ـٌٍADO dataset يحرمطعلإٌ سٍّْطغٌّج ٌٟحطٌج ًىؾٌحذ: ADODataSet1.Recordset := ADOCommand1.Execute; 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www : noitacoLrosruCخحف١س - 1 جٌضذْٛ - ق١ٓ ضفطف ؾحٔد tesdroceR ٌطكذ٠ذ أ٠ٓ ٠طُ ئٔؾحء جٌـ noitacoLrosruCجعطخذجَ . جٌغ١شفش-أٚ ؾحٔد revreSesUlc ٚ tneilCesUlc: جٌم١ُ جٌّكطٍّس . noitacoLrosruCT فٟ noitacoLrosruCدٌفٟ ٠غيٟ . ٘زٖ جٌم١ُ ضْيٝ لرً فطف جلإضقحي - tneilCesUlc: جٌم١ّس جلإفطشجم١س noitacoLrosruC٠ؿد جلأخز ذْ١ٓ جلإّطرحس وً جٌْٛجًِ ٚجٌّٛجسد ق١ٓ ئخط١حس : tneilCesUlc . ٚ ٠غطًّْ لإدجسضٙح rosruC ODA جلإعطْلاِحش وحٍِس فٟ جٌّكشن٠طُ ضخض٠ٓ ٔطحتؽ . جٌغشّس ٚ جٌىفحءز فٟ جٌطْحًِ ِِ جٌر١حٔحش لأٔٙح ضؿٍد جٌر١حٔحش ئٌٝ جٌزجوشز جٌّكٍ١س  . ضٕفز فٟ جٌغ١شفش LQSّرحسجش جٌـ  lacol ضغطمرً فٟ erehWجٌْرحسجش جٌطٟ ضكذد ِؿُّٛ جٌطغؿ١لاش ذاعطخذجَ  . )ِخطضٌس ( rosruc )جلإضقحي فمو ٌؿٍد أٚ قفٌ جٌر١حٔحش(ئِىحٔ١س جًٌّْ ذذْٚ ئضقحي  ِػً revreSesUlcضْشك ِشٚٔس أورشجٌغّحـ ٌٍٍّْ١حش جٌغ١ش ِذِّٛس ِٓ ىشف  . جٌطشض١د ٚ جٌفٍطشز ). LMX، GTDA(ئِىحٔ١س ضخض٠ٓ جٌر١حٔحش ٚ ؾٍرٙح ِٓ جٌٍّفحش  . )٠طُ ضّش٠ش جٌر١حٔحش ِٓ ٚ ئٌٝ جٌّْ١ً (ئسضفحُ قشوس ِشٚس ؽرىس جلاضقحي  50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www : revreSesUlc أٚ لحّذز جٌر١حٔحش / ٚredivorp BD ELO ذحٌّضٚد ضطُ ئدجسضٙح tesdroceRجٌـ . ئلطقحد ِٛجسد جٌّْ١ً  . ئعطٙلان ِٛجسد جٌغ١شفش ٌىً صذْٛ ِطقً  . )جٌرمحء ِطقً (ّذَ جلإِىحٔ١س ِٓ جًٌّْ ذذْٚ ئضقحي  . جٔخفحك قشوس ِشٚس ؽرىس جلاضقحي ٚ ضْطرش جلأِػً فٟ قحٌس مْف جلإضقحي  : epyTrosruCخحف١س - 2 epyTrosruC ذذْٚ جٌطىٍُ ّٓ tesdroceRلا ٠ّىٓ جٌطىٍُ ّٓ جٌّغطًّْ rosruCجٌـ ضكطٛٞ ٍّٝ جٌم١ّس جٌطٟ ضذي ٍّٝ ُٔٛ epyTrosruCخحف١س جٌـ و١ف ضطكشن دجخً جٌغؿلاش ٚ ّٓ ٍٙٛس أٚ ّذَ ٍٙٛس جٌطغ١١شجش جٌطٟ أدخٍص فٟ ٌطكذ٠ذ . ذْذ ئعطمرحي جٌر١حٔحش لحّذز جٌر١حٔحش ِٓ ىشف ِغطٍّْ١ٓ آخش٠ٓ ، citatstc, ylno-drawroftc ,tesyektc ,cimanydtc: جٌم١ُ جٌّكطٍّس deificepsnUtc . epyTrosrucT فٟ sepyt rosrucدٌفٟ ٠غيٟ . tesatad٘زٖ جٌم١ُ ضْيٝ لرً فطف جٌـ - tesyeKtcجٌم١ّس جلإفطشجم١س ٟ٘ . epyTrosruC ٌُ ٠كذد ذْذ جٌـ deificepsnUtc 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www cimanyDtc ِٓ لرً جٌّغطٍّْ١ٓ )جلإمحفس ٚ ضْذ٠ً ٚ قزف (ضغّف ٌه ذشؤ٠س جٌطغ١١شجش  . ج٢خش٠ٓ . )جلإمحفس ٚ ضْذ٠ً ٚ قزف (ضغّف ٌه ذًّْ ضغ١١شجش  . جٌطٕمً فٟ وً جلإضؿح٘حش  tesyeKtc ِٓ لرً جٌّغطٍّْ١ٓ ج٢خش٠ٓ أِح جٌطغؿ١لاش جٌّنحفس لا )جٌطْذ٠ً (ضغّف ٌه ذشؤ٠س  . ٠ّىٓ سؤ٠طٙح ٚ جٌطغؿ١لاش جٌّكزٚفس لا ٠ّىٓ جٌٌٛٛؼ ئٌ١ٙح . )جلإمحفس ٚ ضْذ٠ً ٚ قزف (ضغّف ٌه ذًّْ ضغ١١شجش  . جٌطٕمً فٟ وً جلإضؿح٘حش  )ٔغخس غحذطس ِٓ ِؿُّٛ جٌطغؿ١لاش (٠مَٛ ذمشجءز وحٍِس ٌّؿُّٛ جٌٕطحتؽ citatStc ِٓ لرً جٌّغطٍّْ١ٓ )جلإمحفس ٚ ضْذ٠ً ٚ قزف (لا ضغّف ٌه ذشؤ٠س جٌطغ١١شجش  . ج٢خش٠ٓ . جٌطٕمً فٟ وً جلإضؿح٘حش  . )جلإمحفس ٚ ضْذ٠ً ٚ قزف (ضغّف ٌه ذًّْ ضغ١١شجش  . tneilCesUlc : noitacoLrosruCضغطخذَ ّحدز ٌٍطمحس٠ش فٟ قحٌس  tneilCesUlc : noitacoLrosruC٠غطًّْ فمو ّٕذِح ٠ىْٛ - 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ) ّرٛس ٚجقذ |ٌلأِحَ فمو ( ylno-drawroFtc ِٓ لرً جٌّغطٍّْ١ٓ )جلإمحفس ٚ ضْذ٠ً ٚ قزف (ضغّف ٌه ذشؤ٠س جٌطغ١١شجش  . ' ئرج ٌُ ضقً ذْذ ئٌٝ ٘زٖ جٌطغؿ١لاش' ج٢خش٠ٓ ). lanoitceriDinU(" جلأِحَ " جٌطٕمً فٟ ئضؿحٖ ٚجقذ  . ذْذ جلإٔطمحي ٌغؿً جٌّٛجٌٟ ٠كزف جٌغؿً جٌغحذك ِٓ جٌزجوشز ! عش٠ِ ؾذج  . 1- لإعطْحدز ّذد جٌطغؿ١لاش ٘ٛ tnuoCdroceRل١ّس جٌخحف١س  جٌمٛجتُ جٌٕق١س ِػً / tesataDtneilCِٓ فٛجتذٖ أٔٗ عش٠ِ ٚ٘ٛ جلأِػً ٌّلأ . ...xoBobmoC عّٟ ٘ىزج epyTrosruCفٟ جٌكم١مس ٘ٛ ٌ١ظ ذـ ' جٌكقحْ جٌٕحسٞ ' esroHeriF . ٌغشّطٗ ٚ revreSesUlc = noitacoLrosruC ِِ ylno-drawroFtc٘ٛ ّرحسز ّٓ . ylnOdaeRtI =epyTkcoL : ylno-drawroFtcئمحفس ئٌٝ خقحتـ جٌـ ". جٌمشجءز فمو ")جلإمحفس ٚ ضْذ٠ً ٚ قزف (لا ضغّف ٌه ذًّْ ضغ١١شجش  . لأٔٗ ٌمشجءز فمو . ylno-drawroFtc أعشُ ِٓ جٌغحذك ٚ ! عش٠ِ ؾذج  revreSesUlc : noitacoLrosruCضغطخذَ ّحدز فٟ جٌطمحس٠ش فٟ قحٌس  ئرج ضكشوص ِٓ ضغؿ١ً لا ٠ّىٓ ( ylno-drawroFtc ئلا kramkoobوٍٙح ضذُّ جٌـ * . )جٌْٛدز ئٌ١ٗ غ١ش ِذَّٛ ِٓ جٌّضٚد ، فاْ جٌّضٚد ِّىٓ أْ ٠ْي١ه epyTrosruCئرج ضُ ىٍد * = epyTrosruC ٚ revreSesUlc = noitacoLrosruCآخش ِػلا ئرج ٚمْص . tesyeKtc ئٌٝ epyTrosruCفأٗ عٛف ٠غ١ش ِِ لحّذز ذ١حٔحش أوغظ cimanyDtc 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ٠كطًّ ل١ّس ٚجقذز epyTrosruC جٌـ tneilCesUlc = noitacoLrosruCفٟ قحٌس * revreSesUlc ٠ْٕٟ أْ جٌم١ُ جٌرحل١س خحفس ذحٌـ citatStc : epyTkcoLخحف١س - 2 ئرج وٕص ضرشِؽ ذشٔحِؽ ِطْذد جٌّغطخذِ١ٓ فٍْ١ه جلأخز ذْ١ٓ جلإّطرحس خحف١س ) . جٌطغؿ١ً قّح٠س/ئغلاق(قزف ٔفظ جٌطغؿ١ً / ٌِّٕ ّذز ِغطخذِ١ٓ ِٓ ضْذ٠ًepyTkcoL ضخرش جٌّضٚد أٞ ُٔٛ ِٓ جلإغلاق ٠ؿد أْ ٠ٛمِ ٍّٝ جٌغؿلاش أغٕحء epyTkcoL . )ٚلإعطّْحٌٙح ٠ؿد أْ ٠ىْٛ جٌّضٚد ٠ذّّٗ(جٌطكذ٠ع ، ylnOdaeRtl، citsimissePtl، citsimitpOtl: جٌم١ُ جٌّكطٍّس deificepsnUtI، citsimitpOhctaBtl . epyTkcoLODAT فٟ epyTkcoL دٌفٟ ٠غيٟ . tesatad٘زٖ جٌم١ُ ضْيٝ لرً فطف جٌـ - citsimitpOtlجٌم١ّس جلإفطشجم١س ٟ٘ . epyTkcoL ٌُ ٠كذد ذْذ جٌـ deificepsnUtI citsimitpOtl )جٌف١ض٠حتٟ (فٟ ٘زج جٌُٕٛ ٠طُ غٍك وً عؿً ٍّٝ قذز فمو ق١ٓ ضطُ ٍّّ١س ضكذ٠ع جٌغؿً * ٚ ل١ُ ٘زج جٌغؿً ٟ٘ آخش جٌم١ُ جٌّْيحز ِٓ ّٕذ آخش ِغطخذَ لحَ ذحٌطكذ٠ع citsimissePtl لا ضذُّ ذْل (فٟ ٘زج جٌُٕٛ ٠طُ غٍك وً عؿً ٍّٝ قذز أغٕحء ٍّّ١س جٌطْذ٠ً قطٝ جٌكفٌ * .)جٌّضٚدجش ٘زج جٌُٕٛ 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ylnOdaeRtl .جلإعُ ٠ْرش ّٓ ٔفغٗ فٟ ٘زٖ جٌكحٌس ٠ىْٛ فٟ قحٌس جٌمشجءز فمو* citsimitpOhctaBtl . جٌطكذ٠ع ذحٌذفْحش ّٛك ئعطخذجَ جٌطكذ٠ع جٌفٛسٞ * فىشضٙح ٟ٘ أْ جٌّغطخذَ ٠مَٛ ( دْٚ ئضقحي ًٌٍّْtneilCesUlcضغطًّْ ِِ * ق١ٓ ضىْٛ )hctab(ذحٌٍّْ١حش ، ضخضْ ٘زٖ جٌٍّْ١حش فٟ جٌزجوشز غُ ضمذَ ٍّٝ ؽىً دفْس ٚ ٠ّىٓ ئٌغحء ِح ٠ٛؾذ فٟ )hctaBetadpU(ؾح٘ضز ئٌٝ لحّذز جٌر١حٔحش ٚ٘زج ذحٌطٍْ١ّس setadpUlecnaC أٚ hctaBlecnaCذٛجعيس )hctab( : ِلاقَس قزف ٔفظ جٌطغؿ١ً ، ِػلا /ل١حَ أوػش ِٓ ِغطخذَ ذطْذ٠ً (٠ّىٓ أْ ٠ٛؾذ ضنحسخ فٟ قحٌس . )جلأٚي لحَ ذحٌطْذ٠ً غُ جٌكفٌ جٌػحٟٔ لا٠ّىٕٗ جٌكفٌ ئلا ذْذ ؾٍد آخش ضكذ٠ع ٌٍطغؿ١ً egasseM neeb evah yam seulav emoS.gnitadpu rof detacol eb tonnac woR“ ”daer tsal saw ti ecnis degnahc '' لا٠ّىٓ ئ٠ؿحد جٌغيش ٌٍطْذ٠ً ، ذْل جٌم١ُ ضغ١شش ل١ّٙح ذْذ آخش لشجءز'' ... ْٔٛد ئٌٝ ٘زٖ جٌكحٌس فٟ ِٛمُٛ آخش ئْ ؽحء جلله : snoitpOlahsraMخحف١س - 2 ّٕذ ضغ١١ش فٟ جٌر١حٔحش ٌ١طُ ئسعحٌٙح ئٌٝ جٌغ١شفش ،ذٙزٖ tneilCesUlc ضغطًّْ ِِ . جٌخحف١س ٠ّىٓ ضخق١ـ جٌطغؿ١لاش فٟ جٌر١حٔحش جٌّكٍ١س جٌطٟ ٠طُ ئسعحٌٙح ئٌٝ جٌغ١شفش ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com سٍّطكٌّج ُ١مٌج : ،moMarshalModifiedOnly moMarshalAll ٟيغ٠ ٟفٌد MarshalOptions ٟفTMarshalOption . س١مجشطفلإج سّ١مٌج :moMarshalAll . moMarshalAll : شفش١غٌج ٌٝئ حٌٙحعسئ ٚ س١ٍكٌّج شحٔح١رٌج ٟف شلا١ؿغطٌج ِ١ّؾ سثرْض ُط٠ .moMarshalModifiedOnly : شحٔح١رٌج ٟف ح٘ش١١غض ُض ٟطٌج شلا١ؿغطٌج ومف سثرْض ُط٠ شفش١غٌج ٌٝئ حٌٙحعسئ ٚ س١ٍكٌّج . ظغولأج : ٌٟحطٌج يٚذؿٌج ِرضئ ٚأ ح١مجشطفئ ٟضأ٠ حّذ ًٌّْج ه١ٍّ ظغولأج ٟف : CursorLocation CursorType LockType clUseServer ctForwardOnly ctKeyset ctStatic ltReadOnly ctKeyset ltReadOnly ltPessimistic ltOptimistic ltBatchOptimistic clUseClient ctStatic ltReadOnly ltOptimistic ltBatchOptimistic 1 - ٌٕكي ADOConnection : - : ٚ زذّحمٌج فٍِ ٚ دٚضِ ِٓ يحقضلإج شحٍِِْٛ دطىٔ حٙ١ف ٚ شذؾٚ ْئ سٚشٌّج سٍّو.. 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ٌلإضقحي ٚ ليِ : detcennoC- خحفس ذٕحفزز ىٍد جعُ جٌّغطخذَ ٚ وٍّس جٌّشٚس ئرج وٕص لا ضش٠ذ٘ح أْ : tpmorPnigoL- eslaFضَٙش ئؾًْ جٌم١ّس فٟ ٚمِ tesataDئذمحء جلإضقحي أٚ ليْٗ فٟ قحٌس ّذَ ٚؾٛد : noitcennoCpeeK- . evitcA : elbaTODAيكٌٕ - 2 . noitcennoCODAئرج أسدش ئٔؾحء ئضقحي آخش دْٚ ئعطّْحي : >gnirtSnoitcennoC ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com 4 - ٌٕكيADOStoredProc : -ProcedureName : شحٔح١رٌج زذّحل ٟف ْضخٌّج ءجشؾلإج ذ٠ذكطٌ . 5 - ٌٕكي ADODataSet /ADOCommand : -CommandType : زفٕ١ع ٞزٌج شِلأج ُٛٔ ذ٠ذكطٌ(cmdTable ، cmdTableDirect ،cmdStoredProc ،cmdFile ،cmdText ، cmdUnknown ) cmdFile : ًىؽ ٍّٝ سٍٛفكٌّج شحفٌٍّج فطفٌ xml / adtg ـٌج سيعجٛذ DataSet ( س١فحخٌج ٟف فٌٍّج ُعئ سحطخضCommandText ٍّٝ ٓ١ّ١ٌحذ وغنٌحذ ٚأ ADODataSet شطخئ ٚ Load From File ) cmdStoredProc سٔضخٌّج شجءجشؾلإج ِِ ًِحْطٌٍ ( ٟف ْضخٌّج ءجشؾلإج ُعئ سحطخض س١فحخٌجCommandText ) cmdTable ،cmdTableDirect يٚجذؿٌج ِِ شؽحرٌّج ًِحْطٌٍ ( ٟف يٚذؿٌج ُعئ سحطخض س١فحخٌجCommandText ) cmdText ،cmdUnknown ـٌج ًّؿذ ًِحْطٌٍ SQL ( ـٌج يٚذؿٌج ًّؾ دطىضSQL س١فحخٌج ٟفCommandText ) ـٌج ُٛٔ ذ٠ذكطذ ٓىٌCommandType ٗوشض َذّ ٚ cmdUnknown ءجدأ ْٛىض سؿ١طٌٕج ًنفأ. ًر٠أ سَقلاِ : cmdTable, cmdTableDirect, cmdOpenFile ـذ َذخطغض ْأ دؿ٠ لا ADOCommand . 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www جٌؿضء جلأٚي–ِمحسٔس ذ١ٓ ِقّّحش جٌطمحس٠ش ئعطخذجَ ٠فنٍْٛ جلأغٍر١س ٌىٓ ) ذحٌىٛد (٠ذٚ٠ح جٌطمحس٠ش ضٌٛ١ذ ٠فنٍْٛ جٌّرشِؿ١ٓ ذْل ٚعشّس ذغٌٙٛس جٌطمحس٠ش ٌطقّ١ُ ٚجؾٙحش ضمذَ لأٔٙح جٌطمحس٠ش ِقّّحش :جٌطغحؤي ىشـ ِٓ ٚجقذ وً أْ أّطمذ ؟ ضمحس٠ش ِقُّ أقغٓ ٘ٛ ِح ؟ ٌٟ جٌّٕحعد أخطحس و١ف :دٌفٟ فٟ جٌطمحس٠ش ِقّّحش أفنً ٚ أؽٙش ذ١ٓ جلأعحع١س جٌٍٛحتف ذْل فٟ ِمحسٔس ٌىُ ٔمذَ lilajdledba.malذمٍُ –ِــىٛٔـــحش دٌفـــــــٟ 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www stroper evaR يًيزاحّ جٌذٌفٟ ئذطذجءج ِٓ ِِضٕقد أٚضِٛحض١ى١ح ) noitidE deldnuB EB evaR ( ئفذجس ِؿحٟٔ . EX ئٌٝ آخش ئفذجس 7جلإفذجس . ِطىحًِ ِِ ذ١ثس جٌطيٛ٠ش دٌفٟ . ئِىحٔ١س ؾِّ ّذز ضمحس٠ش فٟ ٍِف ٚجقذ . ئِىحٔ١س قًّ ٍِف جٌطمحس٠ش فٟ جٌٍّف جٌطٕف١زٞ . فمو ٌٍطمحس٠ش جٌرغ١يس draziWئقطٛجتٗ ٍّٝ ِغحّذ فٟ جٌشعُ . )ٌٍطْحًِ ِِ جلأقذج ظ (ِكشس جٌغىشذص . txt , lmth, ftr , fdp : جٌطقذ٠ش ئٌٝ سهبياحّ evaRّذَ ئِىحٔ١س قًّ ِقُّ جٌطمحس٠ش فٟ جٌٍّف جٌطٕف١زٞ ئلا ّٕذ ؽشجء جلإفذجس ). lld ٘ٛ ّرحسز ّٓ evaRفٟ جٌـ ( دٚلاس 004 ذغْش tcetihcrA stropeR . جٌذُّ جٌفٕٟ ِْٕذَ . جٌّٛلِ جٌشعّٟ ِ١ص . ٌٍذٚش ٔص ئفذجسلا 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www redliuB tropeR يًيزاحّ . EX ئٌٝ دٌفٟ 4٠ذُّ ئفذجسجش جٌذٌفٟ ِٓ . ِطىحًِ ِِ ذ١ثس جٌطيٛ٠ش دٌفٟ . جٌغٛسط ِشفك ِِ ؾّ١ِ جلإفذجسجش ِِ ئعطّْحي )ِكشس جٌغىشذص( أٚذؿىص ذحعىحي) tnemnorivnE lacsaP emitnuR )PAR . جلأقذجظ جٌّذِؿس لإٔؾحء جٌطمحس٠ش جٌّْمذز . ضٛغ١ك ؾ١ذ . فٟ جٌٍّف جٌطٕف١زٞ )rotidE tuoyal resu-dnE(ئِىحٔ١س قًّ ِقُّ جٌطمحس٠ش سهبياحّ . esirpretnE ٚ revreS ِطٛفش فمو فٟ جلإفذجس٠ٓ PAR . lanoisseforP٠رذأ ِٓ ئفذجس )rotidE tuoyal resu-dnE( قًّ ِقُّ جٌطمحس٠ش . دٚلاس 9901 ذـ revreS دٚلاس ئٌٝ 943 ذـ dradnatSئذطذجءج ِٓ أعْحس ِشضفْس . ٌٍذٚش ٔص ئفذجسلا 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www tropeR kciuQ يًيزاحّ . EX ئٌٝ دٌفٟ 5٠ذُّ ئفذجسجش جٌذٌفٟ ِٓ . ِطىحًِ ِِ ذ١ثس جٌطيٛ٠ش دٌفٟ . ِٓ عْش جٌشخقس % 52 عْش جٌطشل١س ِؿحٟٔ ٌّٓ ٠ٍّه جلإفذجس ngiseDRQ خحسؾٟ rengised troper resu-dne٠ٛؾذ . orP tropeRkciuQ . ٠ّىٓ ضن١ّٕٗ دجخً جٌٍّف جٌطٕف١زٞ . IICSA,FMW ,LX ,VSC ,LMX ,FDP ,LMTH : ضقذ٠ش جٌطمحس٠ش ٍّٝ ؽىً سهبياحّ . orP tropeRkciuQ أٚسٚ ٌلإفذجس 042جٌغْش قٛجٌٟ . ٌٍذٚش ٔص ئفذجسلا tropeR tsaF يًيزاحّ . EX ئٌٝ 4٠ذُّ ِٓ جٌذٌفٟ *.) . xrfئٌٝ *. 3rf ِٓ ten. ئٌٝ lcvعٌٙٛس ضكٛ٠ً جٌطمحس٠ش ِٓ ( ٠ٛؾذ ئفذجس ٌٍذٚش ٔص دْٚ جٌذفِ dradnatsئِىحٔ١س قًّ ِقُّ جٌطمحس٠ش فٟ جٌٍّف جٌطٕف١زٞ ٠رذأ ِٓ ئفذجس . ِقحس٠ف ئمحف١س ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com web reports سجذفلإج ٟف (Enterprise . ) ِٓ أذرض سحْعلأج 79 سلاٚد (Basic) ٌٝئ349 سلاٚد (Enterprise . ) ش٠سحمض ً٠ٛكضٚ دجش١طعلإٌ زجدأ شفٛضRave reports ٚ Quick Report . صذشىغٌج سشكِ ٞٛل ( PascalScript,C++Script,BasicScript,Jscript ) ـٌج ِِ Debuger . سجٛكٌج شحكفف ُّقِDialog-Page . ذ١ؾ ك١غٛض . دٛى١ٔٛ١ٌٍ ُّد( ٌٗ ٟفٌذٌج ُّد ًرل ْحو) . ِْٗ ٟضأ٠'شحِلاْطعلإج ٟٔحذ 'Fast Query Builder . ٌٝئ ش٠ذقطٌج:pdf , xsl, rtf , html ,bmp , tiff , jpeg , gif, csv , txt , mail , odt , ods . ّحايبهس سجذفلإج ِٓ جءجذطذئ حٔحؿِ شفٛطِ طسٛغٌج(Professional . ) َدحمٌج سجذفلإج ٟف ذ٠ذؿٌجFastReport VCL 5  نشكٌّج ٟف شحٕ١غكض .  حِٕٙ شوزٔ زذ٠ذؾ شحٕتحو *: دٛوسحرٌجDataMatrix ٚ PDF417 ٚ *Zip Code ..  + ٌٝئ ش٠ذقطٌج :BIFF XLS / PPTX / XLSX / DOCX .  ـٌحذ سٙؾجٌٛجRibbon ... . ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com DevEXpress ExpressPrinting System ّحازيًي ExpressPrinting System حق١قخ ُّف سّحرى َحَٔ ٚ شحٔح١رٌج ً١ػّطٌ َذمطِ َحَٔ ٛ٘ سّٛريٌّج سكفقٌج ٌٝئ َذخطغٌّج سٙؾجٚ ُ٠ذمطٌ ح١ؾٌٕٛٛىض شرّReport Link' ش٠شمطٌج ًفٚ ' فّغ٠ExpressPrinting System شحّىكطٌّج ٜٛطكِ ؼجشخاذvcl ًػِ ExpressQuantumGrid ٚ ExpressVerticalGrid حِٕٙ شوزٔ شحٔٛىٌّج ِٓ ذ٠ذٌْج ٚ : TPicture/TImageٚ TDBImage/ TMemo ٚTDBMemo/TCheckListBox/TListBoxٚ TDBListBox/TListBox ٚTDBListBox/TRichEditٚTDBRichEdit TListView/ TTreeView/ TChartٚ TDBChart/TStringGrid ... ذقجٚ ش٠شمض ُ١ّقض ْٚذذ هؿِجشرٌ سّشغذ زدٚذكِ ش١غ ش٠سحمض ُ٠ذمض ٍّٝ زسذمٌج هٌ شفٛ٠ ! سح١طخلإج دغق قشى ظلاػذ سٕ٠حٌّْجStandard ٚ Advanced ٚ Ribbon . ٟفٌذٌج ِٓ ُّذ٠7 ٌٝئ XE . ذ١ؾ ك١غٛض . ّحايبهس ٌٟجٛق زدح٠ص 5 MB ٞز١فٕطٌج فٌٍّج ُؿق ٟف . ٌٝئ ش٠ذقطٌجPdf ومف . ـٌٍ دٛؾٚ لاDBGrid ـٌج سّتحل ّٓم Report Link ـٌحذ ًّْض هٍْؿ٠ حِّ TStringGrid لاػِ ءجشؽ ٚأExpressQuantumGrid . شْغٌج199 زذق ٍّٝ ٗتجشؾذ صّل جرئ سلاٚد . ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www noitcerideRsF46woWelbasiD46woW :ضّٙ١ذ 46 أٍٙشش ٔ١س دُّ َٔحَ seigolonhceT oredacrabmEذّح أْ جٌؾشوس جٌٛف١س جٌكحٌ١س ٌلإفذجسجش جٌّغطمرٍ١س ٌذٌفٟ فّٓ جٌكىّس أْ ٔرذأ جٌّرحدسز ٚ relipmoC 46Xذص ٚ ذشِؿس .جلاقطىحن ذحٌَٕحَ ٌّكحٌٚس فُٙ آٌ١حضٗ ٚ ىشق ٍّّٗ ٌزج فنٍص أْ جىشـ ذْل جلأِػٍس ٍّٝ ؽىً عٍغٍس ِمحلاش ضير١م١س ٠طُ ٔؾش٘ح ققشج ذحٌٍغس sisylanA gulSجٌْشذ١س فٟ ئفذجسجش ِؿٍس ِٕطذٜ دٌفٟ ٌٍْشخ ٚ ذحٌٍغس جلأؿٍ١ض٠س فٟ ِذٚٔس .baL :ِٛمُٛ جٌّمحٌس ذص، ق١ع ّّذش ؽشوس 23 ذص ٚ 46 ذص ذّشٚٔس ور١شز فٟ جٌطْحًِ َ ضير١محش 46٠طّطِ َٔحَ ئٌٝ ضمغ١ُ عؿً جٌَٕحَ ٚ ِؿٍذجضٗ ئٌٝ لغّ١ٓ، جٌمغُ جلأٚي ٚ ٘ٛ جلأعحعٟ ٠خـ شِح٠ىشٚعٛف ذص ٚ جٌمغُ جٌػحٟٔ وّشقٍس جٔطمحٌ١س ٠كطٛٞ ٍّٝ ضير١محش 46ضير١محضٗ جلافطشجم١س ذّح جٔٗ َٔحَ . ذص23 ٚ ٠طُ ِْحٌؿس جٌشعحتً ٚ ضٕف١ز جلأٚجِش ذْذ جٌفكـ ٚ جٌطْشف ٍّٝ ّٔٛ١س جٌطير١ك جٌزٞ ٠طُ ذص ٚ ٔمَٛ 46 ذص ٚ جٌػحٟٔ 23ضؾغ١ٍٗ، ِػلا ٔرشِؽ ضير١م١ٓ ِطّحغٍ١ٓ فٟ جلأٚجِش، جلأٚي ذص، ذْذ جعطذّحء ِذ٠ش جٌّٙحَ عٛف ٔلاقٌ أْ جٌَٕحَ ًّّ ضقٕ١ف 46ذطؾغ١ٍّٙح ٍّٝ َٔحَ . ٚ جٌػحٟٔ ضشوٗ ٍّٝ قحٌٗ23ٌطير١م١ٓ، جلأٚي أمحف ئٌ١ٗ ذص أسجد أْ ٠طْحًِ ِِ ِؿٍذ جٌَٕحَ 23عٛف ٔؿذ ٔفظ جٌطقٕ١ف فٟ قحٌس ضير١ك ئّحدز ضٛؾ١ٗ ذقفس noitcerideR، جٌَٕحَ ٠مَٛ ذًّْ 23metsyS\%tooRmetsyS% قطٝ ٚ أْ 46WOWsyS\%tooRmetsyS% ذص 23جفطشجم١س ٌٍّغحس ئٌٝ ِغحس ضير١محش عٛف 23metsyS\swodniW\:C: وطرٕح جٌّغحس ذذْٚ ِطغ١شجش جٌَٕحَ ذقفس فش٠كس ِػً 46WOWsyS \swodniW\:C :٠طُ ضٛؾ١ٕٙح ئٌٝ ٘زج جٌّغحس جٌّزوٛس عحذمح AIZTiLERTSذمٍُ – ذص 46 عٍغٍس جٌطْحًِ ِِ َٔحَ ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com صفٛعٚشى٠حِ سوشؽ حْرى ،هٌر ش١غ ْحو ٌٛ سٍّطكٌّج ءحيخلأج ٞدحفطٌ ُ١َٕطٌج ٛ٘ درغٌج ٚ ٌٝئ ؼحطكض سِّٙ ِٓ ٖصحؿٔج ذ٠ش٠ حِ دغق ؽِشرٌٍّ ٗ١ؾٛطٌج زدحّئ ً١غؾض ٚ ً١يْض سح١خ صيّأ سح١خٌج جز٘ ِِ ًِحْطٌج. ِلِٛ ِٓ طحرطلج زدجضطعلاٌMSDN Wow64DisableWow64FsRedirection Function Disables file system redirection for the calling thread. File system redirection is enabled by default. Syntax BOOL WINAPI Wow64DisableWow64FsRedirection( __out PVOID *OldValue ); Parameters OldValue [out] The WOW64 file system redirection value. The system uses this parameter to store information necessary to revert (re- enable) file system redirection. Note This value is for system use only. To avoid unpredictable behavior, do not modify this value in any way. Return Value If the function succeeds, the return value is a nonzero value. If the function fails, the return value is zero. To get extended error information, call GetLastError. ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com Remarks This function is useful for 32-bit applications that want to gain access to the native system32 directory. By default, WOW64 file system redirection is enabled. The Wow64DisableWow64FsRedirection/Wow64RevertWow64FsRedirection function pairing is a replacement for the functionality of the Wow64EnableWow64FsRedirection function. To restore file system redirection, call the Wow64RevertWow64FsRedirection function. Every successful call to the Wow64DisableWow64FsRedirection function must have a matching call to the Wow64RevertWow64FsRedirection function. This will ensure redirection is re-enabled and frees associated system resources. Note The Wow64DisableWow64FsRedirection function affects all file operations performed by the current thread, which can have unintended consequences if file system redirection is disabled for any length of time. For example, DLL loading depends on file system redirection, so disabling file system redirection will cause DLL loading to fail. Also, many feature implementations use delayed loading and will fail while redirection is disabled. The failure state of the initial delay-load operation is persisted, so any subsequent use of the delay-load function will fail even after file system redirection is re-enabled. To avoid these problems, disable file system redirection immediately before calls to specific file I/O functions (such as CreateFile) that must not be redirected, and re-enable file system redirection immediately afterward using Wow64RevertWow64FsRedirection. Disabling file system redirection affects only operations made by the current thread. Some functions, such as CreateProcessAsUser, do their work on another thread, which is not affected by the state of file system redirection in the calling thread. Examples The following example uses Wow64DisableWow64FsRedirection to disable file system redirection so that a 32-bit application that is running under WOW64 can open the 64-bit version of Notepad.exe in %SystemRoot%\System32 instead of being redirected to the 32-bit version in %SystemRoot%\SysWOW64. ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com #define _WIN32_WINNT 0x0501 #include void main() { HANDLE hFile = INVALID_HANDLE_VALUE; PVOID OldValue = NULL; // Disable redirection immediately prior to the native API // function call. if( Wow64DisableWow64FsRedirection(&OldValue) ) { // Any function calls in this block of code should be as concise // and as simple as possible to avoid unintended results. hFile = CreateFile(TEXT("C:\\Windows\\System32\\Notepad.exe"), GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); // Immediately re-enable redirection. Note that any resources // associated with OldValue are cleaned up by this call. if ( FALSE == Wow64RevertWow64FsRedirection(OldValue) ) { // Failure to re-enable redirection should be considered // a criticial failure and execution aborted. return; } } // The handle, if valid, now can be used as usual, and without // leaving redirection disabled. if( INVALID_HANDLE_VALUE != hFile ) { // Use the file handle } } ٟم١ريض يحػِ: ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com procedure TWinMain.CopyBtnClick(Sender: TObject); var Wow64DisableWow64FsRedirection: function(var OldValue: Pointer): BOOL; stdcall; Wow64RevertWow64FsRedirection: function(OldValue: Pointer): BOOL; stdcall; OldValue: Pointer; begin try OldValue := nil; CopyFile(PChar('C:\Windows\System32\Notepad.exe'), PChar('C:\Test\Notepad32.exe'), TRUE); Wow64DisableWow64FsRedirection := GetProcAddress(GetModuleHandle(kernel32), 'Wow64DisableWow64FsRedirection'); Wow64RevertWow64FsRedirection := GetProcAddress(GetModuleHandle(kernel32), 'Wow64RevertWow64FsRedirection'); if Wow64DisableWow64FsRedirection(OldValue) then begin CopyFile(PChar('C:\Windows\System32\Notepad.exe'), PChar('C:\Test\Notepad64.exe'), TRUE); MessageBox(Handle, PChar('Wow64 file system redirection [Disabled sucessfully]'), PChar('INFORMATION'), MB_ICONINFORMATION); end else begin MessageBox(Handle, PChar('Unable to disable Wow64 file system redirection'), PChar('ERROR'), MB_ICONERROR); Exit; end; if Wow64RevertWow64FsRedirection(OldValue) then MessageBox(Handle, PChar('Wow64 file system redirection [Enabled sucessfully]'), PChar('INFORMATION'), MB_ICONINFORMATION) else MessageBox(Handle, PChar('Unable to Enable Wow64 file system redirection'), PChar('ERROR'), MB_ICONERROR); except (* nothing *) end; end; 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www :التعليق على المثال lld.23lenreKجٌؿضء جٌٍّْٛ ذحٌٍْٛ جلأخنش ٠خـ ضْش٠ف دجٌط١ٓ ضقذسّ٘ح ِىطرس . ذص ٚ ىش٠مس جٌكقٛي ٍّٝ ّٕٛجّٔٙح ِٓ جٌّىطرس46جٌّٛؾٛدض١ٓ فمو ٍّٝ َٔحَ .جٌؿضء جٌٍّْٛ ذحٌٍْٛ جٌرٕٟ ٠خـ جعطذّحء دجٌس جٌطْي١ً ٚ ئّحدز جٌطفْ١ً .جٌؿضء جٌٍّْٛ ذحٌٍْٛ جلأصسق ٠خـ ٍّّ١س جٌٕغخ لرً ٚ ذْذ ِْحٌؿس خحف١س ئّحدز جٌطٛؾ١ٗ ِٓ ِؿٍذ جٌَٕحَ exe.dapeton جٌطير١ك ٠مَٛ ذّكحٌٚس ٔغخ ٍِف جٌطٛؾ١ٗ، ف١مَٛ جٌَٕحَ ئّحدز ذذْٚ ضْي١ً tseT\:C ِؿٍذ ئٌٝ23metsyS\swodniW\:C 46WOWsyS \swodniW\:C ذص23 جٌّؿٍذ جٌخحؿ ذطير١محش ئٌٝذطٛؾ١ٗ جٌّغحس . جٌطٛؾ١ٗئّحدز ذص، غُ ٠ىًّ جٌطير١ك جٌٍّْ١س ذطْي١ً 23 فٕكقً ٍّٝ ٍِف ٠طُ ف١ٗ قفٌ قحٌس جٌطٛؾ١ٗ لرً ٌٞه- ِخشؼ - جٌطٛؾ١ٗ ضيٍد ِطغ١شئّحدز دجٌس ضْي١ً أْٔلاقٌ . جٌطٛؾ١ٗئّحدزف١ّح ذْذ ٌذجٌس ضفْ١ً - جٌم١ّس جٌّشؾْس - جلأخ١شز ٖضّش٠ش ٘زضْي١ٍٙح، ٚ ٠طُ 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ذص ِٓ جٌّغحس 46 ٠طُ ٔغخ جٌٍّف ِٓ ؾذ٠ذ فٕكقً ٍّٝ ٍِف غحٟٔ ٚ ٌىٓ ٘زٖ جٌّشز ٍِف .23metsyS\swodniW\:C ٌٍَٕحَ جلافطشجمٟ . جٌطٛؾ١ٗئّحدزٚ فٟ جلأخ١ش ٠مَٛ جٌطير١ك ذطفْ١ً خحف١س . جٌطٛؾ١ٗئّحدزجٌغحذك جٌزٞ ضُ قفَٗ ٠طُ ضّش٠شٖ ٌذجٌس ضفْ١ً - جٌّخشؼ - جٌّطغ١شأْٔلاقٌ خيحء ضؿًْ ًّّ جٌَٕحَ غ١ش أ فٟ ٔطغرد ٘زٖ جٌٍّْ١س ِّٙس ؾذج ٌىٟ لا أْ ٕٔطرٗ أْ ٠ؿد . ذص46 ذص ٚ 23ِغطمش ٚ غ١ش دل١ك فٟ ضغ١١ش ضؾغ١ً ضير١محش : ٔحضؽ ٍّّ١س جٌٕغخ، لاقٌ جٌقٛس جٌطحٌ١س ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www . ذص46 ذص ٚ لا ٠خـ ضير١محش 23 جٌطٛؾ١ٗ ٠خـ فمو ضير١محش ئّحدز: ِلاقَس ٘حِس جٌّططرِ جٔٗ ٠ؿد ٍّ١ه أخٟجٌٍّفحش جٌّقذس٠س ِشفمس ِِ جٌٍّف جٌطٕف١زٞ ٌٍطؿشذس، ٚ لا ضٕغٝ ئّحدز ذّح ٠خـ جٌٍّفحش جٌّقذس٠س ف١ّىٕه فطكٙح ٚ أِح ذص، 46ضؾغ١ً جٌٍّف جٌطٕف١زٞ فٟ ذ١ثس . ذص دْٚ ِؾحوً23ذٕحتٙح ٍّٝ ذ١ثس ؽحء جلله ئْ ذحٌطٛف١ك ؾًْ جٌطير١ك ٠طْشف ٍّٝ جٌر١ثس ئٌٝ ؽحء جلله ئْفٟ جٌّمحي جٌمحدَ ِٓ جٌغٍغٍس عٛف ٔطيشق . ذص جّطّحدج ٍّٝ ِح ضقذسٖ ِىطرحش جٌَٕحَ ِٓ دٚجي46 أٚ ذص 23جٌطٟ ٠ؾطغً ف١ٙح، 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www انحًاس انزّس ٔ )٘زٖ جٌّمحٌس ضؿِّ ذ١ٓ جٌؿذ ٚ جٌٙضي، ٚ ٠ؿد أْ ضمشأ ٚفك رٌه: ضٕر١ٗ( أوشِىُ - ضخيش ٍّٝ ذحٌٟ فٛسز nottuBTلا أٍُّ ٌّحرج فٟ دٌفٟ وٍّح سأ٠ص ِىْٛ جٌضس .جٌكّحس، ٚضطذجّٟ فٟ ِخ١ٍطٟ أٚؾٗ جٌؾرٗ ذ١ّٕٙح- جلله يلاحظت يًٓت ئٟٔ ِٓ أؽذ جٌٕحط : لرً أْ ٔغطشعً، أٚد أْ أؽذد ٍّٝ ٔميس ٘حِس ؾذج، ٟٚ٘ ضمذ٠شج ٚجقطشجِح ٚئّؿحذح ذٙزج جٌّخٍٛق، ٌٚٓ أعّف فٟ ِمحٌطٟ ٘زٖ ذأٞ ُٔٛ . جٌغخش٠س أٚ جلاعطٙضجء ضقش٠كح أٚ ضٍّ١كح، ٌزٌه ٌٕىٓ ٚجمك١ٓ ِٕز جٌرذج٠س . أ٠نحnottuBٚىرْح ئقطشجِٟ ٚ ضمذ٠شٞ ٚئّؿحذٟ ٘زج ٠ٕغكد ٍّٝ جي ٔغطأٔف ِٛمّٕٛح ؟... ٚ جٌكّحس nottuBأٞ ِح ٟ٘ أٚؾٗ جٌؾررٗ ذ١ٓ جي .. ٌّحرج رٌه فاْ أٚي ؽٟء 1mroFّٕذِح ٠رذأ جٌّرشِؽ ِؾشّٚح ؾذ٠ذج فٟ دٌفٟ ٚضَٙش أِحِٗ ٔحفزز جٌّٕٛرؼ ٚ٠رحؽش فٟ وطحذس kcilC elbuoD ٍّٝ جٌؾحؽس غُ ضه ضه 1nottuB٠مَٛ ذٗ ٘ٛ ٚمِ .جٌطٍْ١ّحش ؟ لأٔٗ جلألشخ ٌ١ذ جٌّرشِؽ، لا ضٛؾذ ذٗ ضْم١ذجش ئمحف١س ورحلٟ جٌّطكىّحش، nottuBٌّحرج kcilcألقذ .. فغ١ش جٌكؿُ لا ٠أخز ق١ضج فٟ جٌؾحؽس ، ّٕٚذ جٌطؾغ١ً ٠ىف١ٗ ٔخضز فٟ خحفشضٗ .ٍّ١ٙح ف١مَٛ ذطٕف١ز جٌطٌٛ١ف جٌزٞ ٠كٍّٗ ِّٙح ذٍغ قؿّٗ خانذ انشقشَٔي ذمٍُ - ج ِــىـٛٔـحش دٌفٟ 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ٟ٘ جٌّٕٙؿ١س جٌطَٕ١ّ١س جٌطٟ ذٙح ٠ّىٓ ٌٍّرشِؽ أْ nottuBأ٠نح ِٓ جٌّضج٠ح جٌطٟ ٠مذِٙح جي ٠َُٕ ضٍْ١ّحضٗ جٌرشِؿ١س، ٚ ٠مغّٙح ئٌٝ أؾضجء ِشٔس ٠ّىٓ ئدجسضٙح ٚ جٌغ١يشز ٍّ١ٙح ذغٌٙٛس، فِّ .. وً ٍٚ١فس أٚ ِ١ضز ؾذ٠س ٠ش٠ذ أْ ٠ن١فٙح جٌّرشِؽ ٌرشٔحِؿٗ، ِح ٍّ١ٗ ئلا أْ ٠ؿذ قن١شز elbuod غُ nottuBألقذ ّٔٛرؼ ؽحؽس ف١ٗ ق١ض ذغ١و ٚ٠نِ ف١ٗ جي .. ّفٛج ِشز أخشٜ . ٚ٠نخ ف١ٗ ِح أسجد ِٓ وٛدkcilc ٚئرج أسجد جٌّرشِؽ أْ ٠طْمد ِٕيم١س ذشٔحِؿٗ أٚ أْ ٠شجؾِ أٚ ٠قٍف ٍٚٚ١فس ِح ف١ٗ، ِح ٍّ١ٗ ئلا . رجش جٌْلالس ٚ ٠ٕرؼ ضكطٗnottuBأْ ٠ز٘د ِرحؽشز ئٌٝ ...جٌىػ١ش ِٓ جٌّرشِؿ١ٓ ٠ْطّذٚٔٗ وأفنً ٚأٔغد ٚأعشُ ِشوٛخ ٌطكّ١ً جٌطٌٛ١ف دجخٍٗ .وُ ِٓ أذيحْ ضكًّ دجخٍٙح أوٛجد ٠قً ِذج٘ح ٌٍْؾشجش ذً ٚ جٌّثحش ِٓ جٌطٍْ١ّحش جٌرشِؿ١س .وُ ِٓ أذيحْ ضكًّ دجخٍٙح أوٛجد ِفقٍ١س ٚ ؾٛ٘ش٠س ٌٍرشٔحِؽ . ِي١ِ، عًٙ جٌم١حد، ٠طكًّ ِؾحق جٌىٛد ٚ غمٍٗ، ٚلا ٠ؾىٛ ِّٙح قٍّص ٍّ١ٗnottuBجي .ٚ ٕ٘ح ؾحء جٌؾرٗ . لا ٠ٍك ِح ٠غطكك ِٓ ِْحٍِس ؾ١ذزnottuBٚ ِِ ٘زج جي أٞ nottuBTِٓ ؾٙس جٌمحتّ١ٓ ٍّٝ ذشٔحِؽ دٌفٟ، فّٕز جلإفذجس جلأٚي ِٓ دٌفٟ، ٌُ ٠ؿش ٍّٝ .9002ضغ١١ش أٚ ضيٛ٠ش، جٌٍُٙ ئِىحٔ١س ئمحفس فٛسز ٌٙح ِِ ٔغخس دٌفٟ ِٓ أّرحء، ٚذشغُ مخحِس nottuBِٓ ؾٙس جٌّرشِؿ١ٓ، ِق١رس، فرشغُ ِح ٠طكٍّٗ جي جٌطٌٛ١ف جٌّىطٛخ دجخٍٗ، فاْ قنشز جٌّرشِؽ لا ٠طىٍف ّٕحء ئّيحء ئعُ ِكطشَ ٌٗ ٠ٍ١ك ذّح ٠طكٍّٗ، فٕؿذٖ ٠رمٟ ٍّٝ جلاعُ جلافطشجمٟ جٌزٞ ٠أضٟ ذٗ وّح ٘ٛ، ٚ وأٔٗ أدٔٝ ؽأٔح ِٓ أْ ، 1 ٚ٘ىزج قّحس 3nottuB غُ 2nottuB ٚ جٌػحٟٔ 1nottuB: ٠غّٝ، فٕؿذ أعّحء أذيحٔٗ .3 ، قّحس2قّحس 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ٠طُ ضؿحٍ٘ٗ ضّحِح، ذشغُ nottuBأِح ِٓ ؾٙس أدذ١حش جٌرشِؿ١حش ٚ ضمٕ١حضٙح ِٕٚٙؿ١حضٙح فاْ جي ّّك ضأغ١شٖ ٚضٛعِ ؽْر١طٗ، وحْ ِٓ جٌٛجؾد ئفشجد ِٕٙؿ١س أٚ ِفَٙٛ ذشِؿٟ خحؿ ذٗ، ٚ أٞ جٌّٕكٟ POB ٚ ئخطقحسج gnimmargorP detneirO nottuB :٠ّىٓ أْ ٠ىْٛ ئعّٗ ٚ٠غططرِ ٘زج جٌطكٍ١ً ذحٌّٕكٝ جٌريٕٟ، ٚ . جٌضّسٞ ٌٍرشِؿس أٚ جٌرشِؿس جٌضّس٠س أٚ جٌرشِؿس جٌُريٕ١س .جٌطقّ١ُ جٌريٕٟ ٚ ٘ىزج فأٔح أفنً ضغّ١س ٘زٖ جٌّٕٙؿ١س أٚ ٘زج جٌّفَٙٛ ذاعُ رٚ دلاٌس أوػش، ٚ : ٚئرج عأٌطّٟٛٔ سأ٠ٟ . )ُخؼ ٠ح ِرحسن ذكّحسن(: ٠غطٍُٙ ِٓ ضشجغٕح جٌؾْرٟ جٌْش٠ك، جٌطغّ١س ٟ٘ أٞ جٌرشِؿس ذيش٠مس سّحز gnidoC yobwoC: ِّّٛح ضٛؾذ ِٕٙؿ١س ذطغّ١س ؽر١ٙس ٟٚ٘ . جٌرمش، ٌٚىٓ وّح ضلاقَْٛ ضغّ١طٟ أفنً ٚ أوػش دلاٌس gnidoc_yobwoC/ikiw/gro.aidepikiw.ne//:ptth nottuBظاْشة ال ٟ٘ nottuB أٚ ذحلأدق ئؾشجت١س جٌكذظ جٌخحؿ ذحٌٕمش ٍّٝ جي nottuBٍح٘شز جّطّحد جي ٟٚ٘ ٍح٘شز . جٌّرطذتْٛ ُِٕٙ ٚجٌّّحسعْٛ جٌّكطشفْٛ. ٍح٘شز ِٕطؾشز ّٕذ أغٍد جٌّرشِؿ١ٓ ِمرٌٛس ِرذت١ح ، خحفس فٟ ذ١ثس ذشِؿ١س ِشت١س عش٠ْس ور١ثس ضيٛ٠ش دٌفٟ، فاْ وطحذس جٌطٍْ١ّحش جٌرشِؿ١س دجخً قذظ جٌٕمش ٍّٝ جٌضّس ؽٟء ىر١ْٟ ٚ ذذ٠ٟٙ، فحٌّرشِؽ ٌٓ ٠طىٍف ّٕحء ئٔؾحء ٚ ضغّ١س ئؾشجت١س ؾذ٠ذز ّٕٚحء وطحذس أِش جلإعطذّحء ٌٙح؛ ذً فمو جٌٕمش جٌّضدٚؼ ٍّٝ جٌضّس فطمَٛ دٌفٟ ضٍمحت١ح ذأؾحء جلإؾشجت١س، ٚ أِش جلاعطذّحء ٠طُ أ٠نح آٌ١ح ذّؿشد جٌنغو ٍّٝ جٌضس ذْذ . ضؾغ١ً جٌرشٔحِؽ جٌّرطذتْٛ ٠ؿذْٚ جلأِش ِّطْح ٚعٙلا، فٟ جٌٛجلِ ٠ٛفش ٌذ٠ُٙ ٚ لص ور١ش ٠غطغٍٛٔٗ فٟ جٌطّْشف .ٍّٝ ذحلٟ ٔٛجقٟ جٌطيٛ٠ش ٚ جٌرشِؿس أ٠نح جٌّّحسعْٛ رٚٞ جٌخرشز ٚجٌّكطشفْٛ، ٠ؿذْٚ جلأِش عٙلا ِٚرحؽشج، ئرج أسجد جٌّكطشف ضؿشذس فىشز ِح، أٚ ئّذجد ّٔٛرؼ أٌٟٚ ٌكً ِؾىٍس ذشِؿ١س، فاْ أعٍٛخ جٌىطحذس دجخً جٌضس ٘ٛ .أ٠نح أِش ىر١ْٟ ِٚمرٛي 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www .لذ ٠ىْٛ جلأِش ِمرٛلا ئرج وحْ جٌرشٔحِؽ فغ١شج خف١فح ذؾحؽس ٚجقذز أٚ جغٕطحْ.. أ٠نح ٚ ٌكذ ِح . ٌىٓ غ١ش رٌه فاْ جلأِش لا٠ْذ ِمرٛلا جٌّرطذب ٚذْذ أخزٖ فىشز ّٓ جلإىحس جٌْحَ ٌٍرشِؿس ٚ ئّذجد جٌطير١محش، ٠ؿد أْ ٠طخٍـ ِٓ ٘زٖ .جٌْحدز، ٚأْ ٠ٕمً ضٍْ١ّحضٗ جٌرشِؿ١س ٚ ٠ٛصّٙح فٟ ئؾشجت١حش خحفس ٚ جٌّكطشف، ذْذ أْ ٠خطرش ضٍْ١ّحضٗ ٚ ٠طأوذ ِٓ فلاق١طٙح، ٍّ١ٗ أْ ٠ٕمً فٛسج ٘زٖ جٌطٍْ١ّحش .ٚ لا٠طىحعً ّٓ ٘زج جلأِش. ئٌٝ ئؾشجت١س خحفس وأدجز ِٓ أدٚجش ٚجؾٙس جلإعطخذجَ ٠ؿد أْ لاضخطٍف ٍٚ١فطٗ ّٓ غ١شٖ ِٓ nottuBجٌضس أٚ جي صس ئٔحسز جٌّقرحـ ِػلا ٍٚ١فطٗ فمو ئّيحء جلإؽحسز أٚ . جلأصسجس جٌطٟ ٔؿذ٘ح فٟ ِك١يٕح جٌّْحػ صس ذذء ضؾ١غً جٌطى١١ف ٠ْيٟ جلأِش . جلأِش ٌٍّقرحـ جٌزٞ ٠مَٛ ذحٌّٙحَ جٌفٍْ١س ٌٍّْ١س جلإٔحسز ٌؿٙحص جٌطى١١ف ٌ١مَٛ ذٍّْٗ، أٞ أْ جٌضس فٟ قذ رجضٗ لا ٠مَٛ ذّٙحَ جلإٔحسز وّح أٔٗ لا ٠مَٛ ذّٙحَ .جٌطى١١ف ٠ٕغكد أ٠نح ٍّٝ ذحلٟ أٔٛجُ ّٕحفش ٚجؾٙس جلاعطخذجَ ٚ nottuBقذ٠ػٕح جٌغحذك ٍّٝ جي . ٚغ١ش٘حxoBkcehC ٚ xoBtsiL ٚ uneMأٔٛجُ جلأقذجظ جٌطٟ ضغطمرٍٙح ِػً 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www nottuBيا را بعذ ال ) erudecorp ,noitcnuf(ج٢ْ ٚ ذْذ أْ جضفمٕح ٍّٝ مشٚسز جّطّحد ئٔؾحء جلإؾشجت١حش .ٌٛمِ ضٍْ١ّحضٕح جٌرشِؿ١س ف١ٙح؛ ٕٔطمً ئٌٝ جٌكذ٠ع ّٓ جلإؾشجت١حش فٟ ذذج٠حضٟ جٌرشِؿ١س ٔقكٕٟ فذ٠ك ٚأعطحر ٌٟ ذأْ أ٠س ئؾشجت١س ضرشِؿٙح ٠ؿد أْ لا ضطؿحٚص ضٍْ١ّحضٙح جٌرشِؿ١س عرِ ضٍْ١ّحش، ًٍّٚ ذأْ جٌْمً جٌرؾشٞ ألقٝ ّذد ِٓ جٌّْي١حش ٠ّىٓ أْ . ٠طقٛسٖ أٚ ٠طْحًِ ِْٗ فٟ ٚلص ٚجقذ عرِ لا أوػش ٌٚىٓ ٌ١ظ (جٌفىشز ٌ١ظ أْ ٍٔطضَ ذٙزج جٌْذد ذحٌَرو، ع١ىْٛ جلأِش فْرح ٍّٝ وػ١ش ِٕح ، جٌفىشز ٟ٘ أْ ضىْٛ ىٛي جلإؾشجت١حش أفغش ِح ٠ّىٓ، ٚضكطٛٞ ٍّٝ ألً ِح ٠ّىٓ )ِغطك١لا .ِٓ ِْي١حش ٚفْلا ، ٚ ذحٌيرِ، ٚ وأٞ ٔق١كس ضىْٛ أورش ِٓ ِغطٛجٞ فأٟ ٌُ أًّّ ذٙح جٌٕق١كس جٌغحٌ١س، .، أٔطُ ضْشفْٛ...... ٌمذ وٕص قـ: ٚأّطشف ٌمذ ّحٔ١ص ٚلاصٌص أّحٟٔ ٔط١ؿس ّذَ أخزٞ ذٙزٖ جٌٕق١كس، فٟ جٌىػ١ش ِٓ جلأق١حْ ئرج ٍٙشش ِؾىٍس فٟ ئقذٜ ذشجِؿٟ ٚأقحٚي أْ أضطرْٙح لإفلاقٙح أٚ ضْذ٠ٍٙح ، أؾذ أْ جٌّٕيمس جٌطٟ ذٙح جٌٍْس غحٌرح ِح ضىْٛ فٟ ئؾشجت١س دعّس ىٛ٠ٍس، ّٕٚذِح أقحٚي أْ أقذد ذحٌَرو أ٠ٓ ِىّٓ جٌخيأ أٚ جٌطشو١رس جٌّٕيم١س جٌطٟ أدش ئٌ١ٗ أؾذ ٔفغٟ ِشضرىح قحتشج أِحَ ئؾشجت١س ىٛ٠ٍس ّٚش٠نس، ضض٠ذ ّٓ جٌػلاغ١ٓ، غُ ِمحىِ دعّس وً ِميِ لا ٠خٍٛ selbairavضطمذِٙح فف ِٓ جٌّطغ١شجش وً ٚجقذز ِٕٙح ضإدٞ لأخشٜ، neht fi ٚ ؾًّ ؽشى١س spool detsenِٓ قٍمحش ِطذجخٍس . جٌطٟ ضطىشس ٚ ضطٛصُ ٍّٝ ِذٜ ىٛي جلإؾشجت١سtixe ٚ kaerbٔح٘١ه ّٓ ضٍْ١ّحش ٚ جٌٕط١ؿس أْ ٚلطح ور١شج أعطغشلٗ ٌّكحٌٚس فُٙ ِح ضمَٛ ذٗ جلإؾشجت١س، ٚٚلطح أورش ٌّْشفس ِىحْ ضُ ضكش٠شٖ، ٌىٓ ٌىػشز tcejboأق١حٔح جٌٍْس ضىْٛ ضحفٙس وٕغ١حْ ّلاِس أٚ جعطّْحي وحتٓ . جٌٍّْس . جلأعيش ٚ ضؾحذىٙح ضْؿض جٌْ١ٓ ّٓ سؤ٠س ٘زٖ جٌٍْس وّح أٔٙح ضؾىً . ىٛي جلإؾشجت١حش ٚدعحِطٙح ٟ٘ ِٓ أورش ِىحِٓ جٌػغشجش ٚ جًٌٍْ فٟ جٌرشجِؽ أوػش جٌْمرحش أِح ضْذ٠ً جٌرشٔحِؽ أٚ ضيٛ٠شٖ أٚ ٔمٍٗ ِٓ ذ١ثس ئٌٝ أخشٜ أٚ ضشؾّطٗ ِٓ ٌغس .ىٛي جلإؾشجت١حش أورش ّحتك فٟ عر١ً ئدجسز ِشٔس ٌٍىٛد: ذاخطقحس. ذشِؿ١س ئٌٝ ٌغس غحٔ١س 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www فىش فٟ جٌرشٔحِؽ ٍّٝ أٔٗ ِؿّّٛس ِٓ جٌكحٚ٠حش أٚ جٌقٕحد٠ك، وً ئؾشجت١س ضّػً فٕذٚلح، ج٠ّٙح أفنً، أْ ٠ىْٛ ٌذ٠ه ّؾش٠ٓ فٕذٚلح فغ١شج ذّطٕحٚي قًّ جٌ١ذ جٌٛجقذز، ٚ وً فٕذٚق ذٗ ُٔٛ ٚجقذ ِٓ جٌّٛجد، أَ أْ ٠ىْٛ ٌذ٠ه غلاغس فٕحد٠ك ورحس وً ٚجقذ ِٕٙح ِكؾٛس ف١ٗ ِٛجد ؟ .ِٓ أٔٛجُ ِخطٍفس، ٚ ضْؿض ّٓ قٍّٗ ذٕفغه جٌقٕحد٠ك جٌقغ١شز ِّٙح وحْ ّذد٘ح، عٍٙس جٌّٕحٌٚس ٚ ٠ّىٕه ضَٕ١ّٙح ٚ ئدجسضٙح ٚضٛص٠ِ . ِكطٛ٠حضٙح ذحٌى١ف١س جٌطٟ ضش٠ذ٘ح ْم ْٕ أيش سٓم؟.. انخحكى في طٕل الإجشائيت ّٕذِح ضرذأ ذحٌرشِؿس ٚضٍه . أّطشف، ذأْ جٌطكىُ فٟ ىٛي جلإؾشجت١س ٘ٛ أِش فْد فٟ جٌرذج٠س جٌفىشز جٌّؿٕٛٔس ضغ١يش ٍّ١ه ٌطٕف١ز٘ح، ٚ ِِ ضغحسُ ٚض١شز جٌىٛد، ٚ ضٍه جٌٍٙفس جٌّشضْؾس لإمحفس خحف١س ؾذ٠ذز أٚ ضؿشذس ِغحس آخش غُ ضؾغ١ً جٌرشٔحِؽ ٌّْشفس جٌٕط١ؿس، ٚ جٌْٛدز ٌٍىٛد ٌنرو ذْل جلأِٛس أٚ ئمحفس جعطػٕحء، أٚ ِْشفس ِحرج ٌٛ ٔمَٛ ذىزج ذذلا ِٓ وزج، وً ٘زج ٠ؿًْ أٔص . ِٓ جٌْمً ذْ١ذج وً جٌرْذ ّٓ جلا٘طّحَ ذطَٕ١ُ جٌىٛد أٚ ضرغ١يٗ أٚ ضمغ١ّٗ ئٌٝ ئؾشجت١حش ٚعو ِْشوس ِكطذِس، ٚ أفحذْه ضىحد ضمذـ ؽشسج ، ٚلا ٚلص ٌذ٠ه ٌٍطفى١ش فٟ أِٛس ضَٕ١ّ١س .ضٕغ١م١س ٍِّس ٚ ضغطشعً جلإؾشجت١س فٟ جٌيٛي، ٚوً ضٍْ١ّس ؾذ٠ذز ضٌٛذ ّؾشز غ١ش٘ح، خحفس ئرج وٕص ذقذد ؛ فاْ noitazimitpo أٚ ذحٌنرو ٚسفِ جٌىفحءز scihparGذشِؿس رجش ّلالس ذحٌشعِٛ١حش .جلأعيش أِحِه ضطذجّٝ ٚضطٛجٌذ قطٝ ضق١ف جلإؾشجت١س ذكؿُ ٘زٖ جٌّمحٌس ٌىٓ ذْذ جٔطٙحء جٌّْشوس، ٚ جىّثٕحٔه ٌٍٕطحتؽ، ٚلرً أْ ضٕطمً ئٌٝ ِٛمُٛ آخش؛ قحٚي أْ ضْ١ذ . جٌَٕش فٟ جلإؾشجت١س ٚ لُ ذطكٍ١ٍٙح ٚ ضمغ١ّٙح ئٌٝ ئؾشجت١حش أفغش فأفغش ِِ جٌٛلص، ضؿذ ٔفغه ضٍمحت١ح ضفىش ذيش٠مس ِخطٍفس ّٕذ وطحذس جلإؾشجت١حش، ٚ ذذْٚ ّٕحء ِٕه، .٠مَٛ ّمٍه ضٍمحت١ح، ذاؾرحسن ٍّٝ ذٕحء ئؾشجت١حش فف١شز خف١فس ِٕز جٌرذج٠س 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www أفضم انًًاسساث انبشيجيت :ٕٔطمً ئٌٝ ذْل أفنً جٌّّحسعحش ٚجٌمٛجّذ ّٕذ وطحذس جلإؾشجت١حش عذد أقم يٍ الأسطش قذد ّذدج ِْ١ٕح ِٓ جلأعيش فٟ جلإؾشجت١س جٌٛجقذز ٚلاضطؿحٚصٖ، جٌرْل ٠مٛي خّغْٛ عيشج، جٌُّٙ أْ ٠ىْٛ ّذد جلأعيش ألً . ٚجٌرْل ٠مٛي ّؾشْٚ، ٚآخشْٚ ٠فنٍْٛ خّغس ّؾش عيشج لُ ذطمٍ١ـ ّذد جلأعيش : ِح ٠ّىٓ، ٚ ِِ ضضج٠ذ ِٙحسجضه جٌرشِؿ١س، ٚ ضْٛد ّمٍه ٍّٝ ٘زج جٌم١ذ .وً ِشز أسطش قصيشة .ٕ٘حن خو ّّٛدٞ ٠غحس جٌّكشس قحٚي أْ لا ضطؿحٚصٖ. لا ضؿًْ عيش جٌطٍْ١ّحش ىٛ٠لا يسخٕياٌ كحذ أقصى ضؿٕد جٌكٍمحش ٚجٌؿًّ جٌؾشى١س . لا ضؿًْ ِٓ جٌطٍْ١ّحش ضطّْك لأوػش ِٓ ِغطٛ٠١ٓ وكذ ألقٝ :جٌّطذجخٍس، جٌطٟ ضرذٚ ِػً جٌغٙحَ جٌكحدز od elihw od elihw od elihw od elihw od elihw oDoTtnaWuoYrevEtahW od dne dne dne dne dne fi fi fi fi gnihtemos od dne dne dne dne 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www انخقهيم يٍ انخعهيقاث ٚجٌّلاقَحش ٍّٝ جٌطٍْ١ّحش جٌرشِؿ١س أِش ِيٍٛخ ئرج وحٔص جٌطٍْ١ّس stnemmoCجٌطٍْ١محش ٠قْد فّٙٙح أٚ فُٙ ِّٙطٙح، ٚ ٌىٓ ِٓ جلأعحط ٌّحرج ٔىطد ضٍْ١ّحش فْرس جٌفُٙ؟ وٍّح وحٔص جلإؾشجت١س . جٌطٍْ١ّحش عٍٙس ٚٚجمكس وٍّح وحْ رٌه أفنً، ٚ ذحٌطحٌٟ ٔغطغٕٟ ٍّٝ جٌطٍْ١محش .جٌطٟ لا ضكطحؼ ئٌٝ ضٍْ١ك أفنً ِٓ ضٍه جٌطٟ ضكطحؾٙح لا حعيذ َفس انكٕد يشحيٍ ئرج ٚؾذش ٔفغه ضٕغخ ضٍْ١ّحش ِٓ ئؾشجت١س أخشٜ ٚضْ١ذ٘ح، فٙزج ِإؽش لأْ ضْ١ذ جٌطفى١ش فٟ .جٌطٍْ١ّحش جٌّٕغٛخس ٚأْ ضنْٙح فٟ ئؾشجت١س خحفس ذٙح قى بحٕسبت الإجشائيت في عقهك أٔلا ٌرشٔحِؿه ٌٍطأوذ ِٓ علاِس جٌىٛد جٌّىطٛخ، قحٚي أْ ضمَٛ elipmoCلرً أْ ضمَٛ ذحلأِش سجؾِ ذرقشن جٌطٍْ١ّحش جٌّىطٛذس ٚضطرْح عيشج عيشج ٚقحٚي . ذٙزٖ جٌٍّْ١س فٟ ّمٍه أٚلا ِِ جٌّّحسعس جٌذجتّس ٌٙزٖ جٌْحدز . relipmocأْ ضىطؾف جًٌٍْ ذٕفغه لرً أْ ٠ىطؾفٙح جي .ع١طٍُْ ّمٍه و١ف ٠طؿٕد ِىحِٓ جلأخيحء جٌطٟ ّحدز ِح ضمِ ذٙح انخسًيت انٕاضحت ٔانقصيشة ضغّ١س جلإؾشجت١س ٠ؿد أْ ٠ىْٛ دجلا ٍّٝ ِح ضمَٛ ذٗ، ٚأْ لا ٠ىْٛ ىٛ٠لا، ٚ أْ لا ٠ىْٛ أفنً جٌطغّ١حش ِح وحْ ٠كٛٞ ٍّٝ وٍّس ٚجقذز أٚ وٍّط١ٓ . ِخطقشج فٟ قشف١ٓ أٚ غلاظ .وكذ ألقٝ ٠مٛي جٌخرشجء ئرج وحٔص جٌطغّ١س ِخطقشز ؾذج أٚ ىٛ٠ٍس ؾذج فمذ ٠ْٕٟ ٘زج أْ جلاؾشجت١س ضمَٛ ٚ٘زج ٠مٛدٔح ئٌٝ جٌمحّذز . ذْذز أِٛس ِّح ٠قْد ٍّ١ه ئ٠ؿحد ئعُ ٚجمف ٌٙح ذىٍّس أٚ جغٕط١ٓ .جٌّّٙس جٌطحٌ١س يًٓت ٔاحذة نكم إجشائيت ئرج لا قَص أْ جٌطٍْ١ّحش . جلإؾشجت١س ٠ؿد أْ ضمَٛ ذّّٙس ٚجقذز فمو ٌٚ١ظ أوػش ِٓ ٚجقذز جعطشعٍص فمذ ٠ْٕٟ ٘زج أْ ِٙحَ أخشٜ ذذأش ذحٌَٙٛس ، ٚٚؾد ئفشجد ئؾشجت١س ِٕفقٍس . خحفس ذٙح 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ئرج قممص ٘زج جلأِش، فغطؿذ أْ ذحلٟ جٌٕمحه . ٘زٖ سذّح أُ٘ ِّحسعس ٠ؿد أْ ضّطٍه ِٙحسضٙح .جٌطٟ عشدٔح٘ح ضطكمك ضٍمحت١ح انًشاحعت ٔ انخُقيح ذ١ٓ وً ق١ٓ ٚ آخش لُ ذّشجؾْس جٌىٛد، ٚىرك ٍّ١ٗ ِحعرك ِٓ لٛجّذ، ٚ أؾٍْٗ فٟ وً ِشز . أوػش ذغحىس ٚٚمٛقح 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www جٌؿضء جٌػحٟٔخطٕة خطٕة .ٔٛجفً ِح ذذأٔحٖ ِٓ ؾٛلاش فٟ جٌّمحٌس جٌغحذمس ٚ ٔطْشف أوػش ٍّٝ ِفح٘١ُ جٌّٕكٝ ٌٍىحتٓ انجٕنت انخايست ؾذ٠ذز، ٌىٓ ٘زٖ جٌّشز عطىْٛ ِؾطمس ِٓ فٕف١س ssalcعٛف ٔمَٛ ج٢ْ ذأؾحء فٕف١س ، جٌقٕف١س جٌؿذ٠ذز ٔش٠ذ ذٙح ضّػ١ً فثس ِْ١ٕس ِٓ جلأفشجد ٟٚ٘ فثس جٌٍّٛف١ٓ، ٚ nosrePT ضكص POOu ، عٕمَٛ ذطْش٠ف ٘زٖ جٌقٕف١س فٟ ٚقذز eeyolpmETعٕغّٟ جٌقٕف١س جٌؿذ٠ذز : ٚرٌه وحٌطحٌٟnosrePTضْش٠ف فٕف١س )tcejbOT(ssalc = nosrePT ------- ------- ;dne ;)nosrePT(ssalc = eeyolpmET خانذ انشقشَٔي ذمٍُ - دٌفٟج جٌرشِؿس ذحٌّٕكٝ جٌىحتٕٟ فٟ ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com ِٓ سمطؾِ حٙٔأ ْح١ذٚ زذ٠ذؿٌج س١فٕقٌج ف٠شْطذ ومف حّٕل ؛ٖلاّأ فمجٚ ٛ٘ حّوTPerson . ٌُٚ شخآ شقّٕ ٞأ حٙ١ف ِنٔ . س١فٕقٌج خشؿٔTEmployee شخآ سص ءحؾٔئ حٕ٘ ـشطلأٚ ،Button2س١فٕقٌج ٖز٘ سذشؿطٌ . ًخجد ٟطٌج هٍطٌ حِحّض سمذحيِ شحّ١ٍْطٌج ْٛىطعButton1 َجذخطعج ٛ٘ ذ١قٌٛج ش١١غطٌج ، TEmployee ِٓ لاذذ TPerson ُعاذ ش١غطٌّج س١ّغضٚ Empٌٟحطٌحو : procedure TForm1.Button2Click(Sender: TObject); var Emp: TEmployee; begin Emp := TEmployee.Create; try Emp.FirstName := 'Ahmad'; Emp.LastName := 'Hamza'; Emp.BirthDate := EncodeDate(1980, 3, 15); ShowPerson(Emp); finally Emp.Free; end; end; سضٌج ًغؾٔٚ ٚ ،ؽِحٔشرٌج سذشؿطذ َٛمٔButton2 سضٌج ًّّ سؿ١طٌٕ سمذحيِ سؿ١طٌٕج ْأ ٜشٕع ٚ يٚلأج. س١فٕقٌج ف٠شْض ْأ ُغشذ كذحيطٌج جز٘ جرحٌّTEmployee ٚأ شفحّٕ س٠أ ِٓ ح١ٌحخ ءحؾ شح١تجشؾئ . س١فٕقٌج ْلأTEmployee س١فٕف ِٓ سمطؾِ TPerson ِ١ّؾ ظشطع ٌٟحطٌحذٚ حٙقتحقخٚ حٙضحفف . ذ٠ذؿٌج س١فٕقٌج ُٛٔ ِٓ ش١غطِ ٚأ فشِْ ٞلأ ٓىّ٠ جزٌٙ( ش١غطٌّجEmp حٌٕحػِ ٟف) ًػِ ًفلأج س١فٕقٌج ـتحقخٌ زفٕ٠ ْأFirstNam ٚأ GetAge. ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com س١تجشؾلإج ظفٔ ءجذٕذ حّٕل حٕٔأ ٛ٘ ؛شٌٍَٕ صفٌٍّج شخ٢ج شِلأجShowPerson ٖز٘ ْأ ُغشرف ، ُٛٔ ِٓ ٝيِْ ًرمطغض حٙف٠شْض ٟف س١تجشؾلإجTPerson حٌٙ حٔسشِ حِذّٕ ِٔحّض ٌُ حٙٔأ لائ ُٛٔ ِٓ ٝيِْTEmployee ُٛٔ حٌٙ سرغٌٕحذ ٗٔلأ ؟جرحٌّ ،TEmployee ٍّٝ حّٕم ٞٛطك٠ ٌُٕٛجTPerson. س١تجشؾلإج ز١فٕض س٠جذذ ٟف ٌٟحطٌج دٛىٌج ُسص حٕٕىّ٠ فحؾىطعلاج ِٓ ذ٠ضٌّ: procedure TForm1.ShowPerson(P: TPerson); begin if P is TPerson then Caption := 'Person'; if P is TEmployee then Caption := Caption + ' Employee'; Caption := Caption + ' ' + P.ClassName; . . . . سيعجٛذ س١تجشؾلاج ّٟذطغٔٚButton1 سيعجٛذ ُغ Button2قشفٌج ؽطٕطغٔ ُغ ٌقلأٚ . زذ٠ذؾ س١فحخ سفحمئ س١فحخ ْ٢ج ف١نٔproperty س١فٕقٌ زذ٠ذؾ TEmployeeدضشٌّج ًػّض . حّٙعئ س١فحخٌج Salary ٌٟحطٌحو: TEmployee = class(TPerson) private FSalary: integer; procedure SetSalary(const Value: integer); public property Salary: integer read FSalary write SetSalary; end; س١فٕقٌج ومف ـخض زذ١ؿٌج س١فحخٌج ٖز٘ ْأ ٌقلإٌTEmployee س١فٕقٌحذ حٌٙ سللاّ لا ٚ س١ٍفلأجTPerson ْأ ٞأ ،TEmployee شحفف ِ١ّؾ حٙ٠ذٌ TPerson ذ٠ضض ُغ سغجسٌٛحذ س١فحخٌج حٙ١ٍّSalary. ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com زذ٠ذؿٌج س١فحخٌج ٖز٘ ِِ ًّحفطٔ ف١و ْ٢ج ٜشٌٕ . سضٌحذ ؿحخٌج ظذكٌج ٟفButton2 َذخطغٔ سّ١ل حٌٙ ذٕغٔٚ سفحخٌج ٖزخ: procedure TForm1.Button2Click(Sender: TObject); . . . . . . . . . . . . . . Emp.LastName := 'Hamza'; Emp.BirthDate := EncodeDate(1980, 3, 15); Emp.Salary := 1200; ShowPerson(Emp); . . . . . . . . . . . . . . end; س١تجشؾلإج ٟف ُغShowPerson ُ١مٌج ّٓم سؽحؾٌج ٍّٝ س١فحخٌج ٖز٘ سّ١ل سحٍٙئ يٚحكٔ ٜشخلأج. س١تجشؾئ ٟف سحٍٙلإج شحّ١ٍْض ش١وزطٌٍShowPersonٌٟحطٌحو : Canvas.TextOut(10, 10, P.FirstName); Canvas.TextOut(10, 30, P.LastName); Canvas.TextOut(10, 50, DateToStr(P.BirthDate)); Canvas.TextOut(10, 80, P.GetFullName); Canvas.TextOut(10, 100, IntToStr(P.Age)); سّ١ٍْطٌج حٕفمأ ٌٛ ْ٢ج: Canvas.TextOut(10, 120, IntToStr(P.Salary); ْأذ أيخ سٌحعس حٕ١يْ١ع ُؾشطٌّج ْافSalary سفشِْ ش١غ (Undeclared identifier) . ٛ٘ٚ س١فحخٌج ذقم٠ حٕ٘Salary ش١غطٌّج ِِ قح١غٌحذ شءحؾ حِذّٕ P ٞأ P.Salary . جرحٌّ ُٙفٌٕٚ ْافP س١فٕقٌج ُٛٔ ِٓ TPerson س١فحخٌج ٞٛكض لا ًفلأج ٟف ٟ٘ ٟطٌجٚ Salary. ٝيٌّْج ٟف سّ١مٌج يحرمطعج ٍّٝ س١تجشؾلإج صمفجٚ جرحٌّ جرئP ُٛٔ ِٓ سّ١مٌج ْأ ُغس TEmployeeحمذحع حٔشور حّو ؟ : ُٛٔ ْاف حٌٙ سرغٌٕحذ ٗٔلأTEmployee ٍّٝ حّٕم ٞٛطك٠ ٌُٕٛجTPerson. ُلس دذٌْج05 Issue 05 D4A Magazine www.delphi4arab.com ُٛٔ ِٓ سّ١ل يحرمطعئ ٍّٝ كفجٚ ُؾشطٌّج جرئTEmployee ِٓ كطؾِ ٌُٕٛج جز٘ َجد حِ TPerson س١فحخٌج زجدحِٕ ٍّٝ كفجٛ٠ ٌُ ٕٗىٌ Salary ِِ قح١غٌحذ P ْلأ P ًفلأج ٟف فشِْ ُٛٔ ِٓ ٗٔأ ٍّٝTPersonس١فحخٌج ٖز٘ فشْ٠لا ٞزٌج . ؟ًكٌج حِ سرٌٛمٌج ٚأ ّدقٌج س١ٕمض َجذخطعحذ ًكٌجCasting . ٌُٕٛج دقٔ ْأ ٛ٘ٚTPerson ِٓ دٌحل ٟف ُٛٔTEmployeeٌٟحطٌحو : TEmployee(P).Salary ظرٍٔ حٕٔأ ٞأ P خح١غ TEmployee. ًِحْ٠ ْأ ٍّٝ ُؾشطٌّج حٔشرؾأ حٕ٘P ُٛٔ ِٓ ٗٔأ ٍّٝ TEmployee ْلأٚ TEmployee ِٓ كطؾِTPerson ٓنطك٠ ْأ ِٔحّ٠ لا ٗٔاف P ُٛٔ ِٓ ٟ٘ ٟطٌج TPerson. ٌٟحطٌحو ْٛىطٌ سحٍٙلإج سّ١ٍْض ِٓ يذْٕع هٌزٌ: Canvas.TextOut(10, 120, IntToStr(TEmployee(P).Salary)); س١فحخٌج ْلأٚSalary ٌُٕٛج ٟف ومف زدٛؾِٛ TEmployee س١ىشؽ سٍّؾ سفحماذ َٛمٔ ؛ سّ١ل ْأ ِٓ ذوأطضP ُٛٔ ِٓ TEmployee. if P is TEmployee then Canvas.TextOut(10, 120, IntToStr(TEmployee(P).Salary)); سَقلاِ : دقٌج س١ٍّْذ َٛمٔ ْأ حن٠أ ٓىّ٠ ٟفٌد ٟف(Castingظ١رٍطٌج ،سرٌٛمٌج ،) سم٠شيٌحذ س١ٌحطٌج : (P as TEmployee).Salary ؽِشرٌّج ً١نفطٌ نٚشطِ شِلأجٚ. 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www msihpromyloPانخح ّٕس ٔانخشّكم ٠ّىٓ أْ dohtem جلإؾشجت١س/ أٚ جٌّٕٙحؼnoitcnufفٟ أّشجف جٌّٕكٝ ٌٍىحتٓ ٔفظ جٌذجٌس .ضٕفز ذحوػش ِٓ ىش٠مس ّرش عٍغٍس جٌقٕف١حش جٌّؾطمس ِٓ ذْل . جٌطٟ ضمَٛ ذؿِّ جلإعُ جلأٚي ِِ جٌػحٟٔemaNlluFteG ضٛؾذ جٌذجٌس nosrePTفٟ فٕف١س ضمَٛ ذاٍٙحس جلإعُ ذقٛسز ِخطٍفس ِِ جٌكفحً ٍّٝ eeyolpmET٠ّىٕٕح أْ ٔؿًْ ِٓ جٌقٕف١س .ٔفظ ئعُ جٌذجٌس :ٌطٕف١ز رٌه ٔمَٛ ذحٌطحٌٟ :nosrePT فٟ فٕف١س emaNlluFteG فٟ ضْش٠ف جٌذجٌس lautrivأٚلا ٔمَٛ ذامحفس ٚعُ ;lautriv ;gnirts :emaNlluFteG noitcnuf .٘زج جٌٛعُ ٠ط١ف ٌٍقٕف١حش جٌّؾطمس أْ ضْ١ذ ضْش٠ف ٔفظ جٌذجٌس ٚأْ ضشظ ضٕف١ز٘ح ئرج أسجدش : ذحٌيش٠مس جٌطحٌ١سeeyolpmETغحٔ١ح، ْٔ١ذ ضْش٠ف ٔفظ جٌذجٌس فٟ فٕف١س )nosrePT(ssalc = eeyolpmET .. .. .. cilbup ;edirrevo ;gnirts :emaNlluFteG noitcnuf .. .. .. 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www فٟ ٔٙح٠س ضْش٠ف جٌذجٌس، ٚجٌزٞ ٠ؾ١ش ئٌٝ أْ جٌذٌس فٟ ٘زٖ جٌقٕف١س edirrevoلاقٌ جٌٛعُ .عطغطٌٟٛ ٍّٝ جٌطٕف١ز جٌغحذك فٟ جٌذجٌس جٌّؾطمس فٟ ؾغُ جٌذجٌس ٔمَٛ ذادخحي جٌطٍْ١ّحش جٌؿذ٠ذز جٌخحفس ذاٍٙحس جلاعُ، ٕٚ٘ح ٌٕح جٌخ١حس ذأْ ٔميِ :جٌْلالس ِِ جٌطٕف١ز جٌغحذك ٚٔكذد ضٕف١زج ؾذ٠ذج ِػً ;gnirts :emaNlluFteG.eeyolpmET noitcnuf nigeb ;emaNtsriF + ' ,' + emaNtsaL + ' ' + '.rM' =: tluser ;dne : ِِ ذْل جٌطكٛ٠شnosrePTأٚ ٔغطخذَ جٌطٕف١ز جٌغحذك فٟ فٕف١س ;gnirts :emaNlluFteG.eeyolpmET noitcnuf nigeb ;emaNlluFteG detirehni + ' .rM' =: tluser ;dne . ٚجٌزٞ ٠ْٕٟ ضٕف١ز ِح ٘ٛ ِٛسٚظdetirehniلاقٌ جلأِش ٌٕخطش أ٠ح ِٓ جٌطٕف١ز٠ٓ ٚٔؿشخ ٔط١ؿطٗ، ٚعٕلاقٌ جخطلاف ّشك جلاعُ جٌىحًِ ذكغد ع١حق ضْشك جلإعُ ذق١غس nosrePTجٌُٕٛ، ذك١ع ٌٛ ضُ جعطذّحء ٘زج جٌذجٌس ذحٌغ١حق ِِ جٌُٕٛ .eeyolpmETضخطٍف ّٓ ِح ٌٛ ضُ جعطذّحؤ٘ح ذحٌغ١حق ِِ ٚ جؽطممٕح nosrePTِٓ جٌقٕف١س جٌٛجقذز ٠ّىٕٕح جؽطمحق أوػش ِٓ فٕف١س، فىّح فٍْٕح ِِ فٕف١س . dlihCT ؛ ٠ّىٕٕح أ٠نح جؽطمحق فٕف١س أخشٜ ِػً eyolpmETِٕٙح فٕف١س ٔؾطك ِٕٙح eeyolpmETِػلا فٕف١س . ِٓ جٌقٕف١س جٌّؾطمس ٠ّىٓ أْ ٔؾطك فٕف١س أخشٜ . reganaMTفٕف١س .عٍغٍس جلاؽطمحلحش غ١ش ِكذٚدز جٌْذد ٚوً ٚجقذز ضشظ خقحتـ ٚعٍٛو١حش ِح لرٍٙح 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www انجٕنت انسادست ٔكٓ فٟ . فٟ ٘زٖ جٌؿٌٛس ٔكحٚي أْ ٔمطشخ لٍ١لا ٚ ٔطفُٙ ىر١ْس جٌّطغ١شجش جٌطٟ ِٓ ُٔٛ وحتٕٟ ٚ جٌػحٟٔ ِٓ nosrePT ، جلأٚي ِٓ ُٔٛ pmE ٚ جٌّطغ١ش Pأِػٍطٕح جٌغحذمس جعطخذِٕح جٌّطغ١ش .tcejbOT ٚولاّ٘ح ضْٛد ؾزٚسّ٘ح ئٌٝ جٌُٕٛ جلأفٍٟ eeyolpmETُٔٛ gnirts ٚ regetniجٌّطغ١ش ِٓ ُٔٛ وحتٕٟ ٠خطٍف ّٓ جٌّطغ١شجش ِٓ جلأٔٛجُ جلأعحع١س ِػً .وٛٔٗ لا ٠كًّ ل١ّس جٌُٕٛ فٟ قذ رجضٗ فاْ 01 ٚٔغٕذ ٌٗ ل١ّس regetni ٍّٝ أٔٗ Aٌٕٛمف أوػش؛ ّٕذِح ّْٔشف جٌّطغ١ش ِٓ ُٔٛ ضحذِ ِْٟ . )Aلغُ فٟ جٌزجوشز ٠كٛٞ ل١ّس (جٌّطغ١ش ٠ىْٛ قحِلا ٌٙزٖ جٌم١ّس rav ;regetni :C ,B ,A nigeb ;01 =: A 01 // ;A =: B 51 // ;5 + A =: A فاْ A ٌم١ّس 5 ، ّٕٚذ أمحفس A خقـ ٌٗ لغُ آخش فٟ جٌزجوشز ٚأّي١ٕحٖ ٔفظ ل١ّس Bجٌّطغ١ش . لا ضضجي ل١ّطٙح غحذطسB ذ١ّٕح 51 عطقرف ل١ّطٙح A 52 // ;B + A =: C 52 أٞ B ٚ A ٌٗ لغُ خحؿ ذٗ فٟ جٌزجوشز، ٚ أفركص ل١ّطٗ ج٢ْ ِؿُّٛ Cجٌّطغ١ش جٌّطغ١شجش جٌػلاظ وً ٚجقذ ُِٕٙ ِغطمً ّٓ ج٢خش ٚ٠كًّ ل١ّٗ جٌخحفس ذٗ فٟ لغُ خحؿ ذٗ .فٟ جٌزجوشز 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www :ٌٛ ىرمٕح ٔفظ جٌغ١ٕحس٠ٛ ٍّٝ جٌّطغ١شجش ِٓ ُٔٛ وحتٕٟ rav ;nosrePT :Co ,Bo ,Ao nigeb ;etaerC.nosrePT =: Ao ;Ao =: Bo ;Ao =: Co ;'damhA' =: emaNtsriF.Ao ;'azmaH' =: emaNtsaL.Bo 'azmaH damhA' // ;emaNlluFteG.Co =: noitpaC ;eerF.Ao ;lin =: Ao ;lin =: Bo ;lin =: Co . أفرف ٌٙزج جٌىحتٓ ٚؾٛد فٟ ِىحْ ِح فٟ جٌزجوشزnosrePTّٕذِح ؾغذٔح وحتٕح ِٓ ُٔٛ ٌٗ ِىحْ آخش فٟ جٌزجوشز أ٠نح ٌٚىٕٗ لا ٠كٛٞ جٌىحتٓ ٚئّٔح ٠كٜٛ ّٕٛجْ ِٛلِ Aoجٌّطغ١ش . ئٌٝ ِٛلِ جٌىحتٓ فٟ جٌزجوشزretnioPجٌىحتٓ فٟ جٌزجوشز أٞ أٔٗ ِإؽش لرً أْ ٔغٕذ ٌٗ أ٠س ل١ّس؛ ٌٗ ِٛلِ فٟ جٌزجوشز ٌٚىٓ لا٠كٛٞ أ٠س ل١ّس رجش ِْٕٝ؛ أٚ Boجٌّطغ١ش . ذحلأفف ٠كٛٞ ل١ّس ّؾٛجت١س ٚ٘ٛ Ao أٞ أٔٗ ج٢ْ ٠كٛٞ ٔفظ ل١ّس Bo ئٌٝ جٌّطغ١ش Ao ، ضُ جعٕحد ل١ّس Ao =: Boذْذ ، ٚوزذه جلأِش ذحٌٕغرس Aoّٕٛجْ فٟ جٌزجوشز أٞ أٔٗ ٠ؾ١ش ئٌٝ ٔفظ جٌىحتٓ جٌزٞ ٠ؾ١ش ئٌ١ٗ .Coٌٍّطغ١ش . ٠ؾ١شْٚ ج٢ْ ئٌٝ ٔفظ جٌىحتٓCo ٚ Bo ٚ Aoأٞ أْ جٌّطغ١شجش emaNtsriF ِػلا ْٚٔيٟ ل١ّس ٌٍخحف١س Aoٚذٙزج ٠ّىٕٕح أْ ٕٔفز ٌٍىحتٓ ِٓ خلاي جٌّطغ١ش ْٚٔيٟ ل١ّس ٌخحف١طٗ Bo، ٚ أ٠نح ٕٔفز ٌٕفظ جٌىحتٓ ِٓ خلاي جٌّطغ١ش )”damhA“( ، ٌزٌه ِٓ جٌّٕيمٟ ضرْح ٌزٌه ٌٛ جعطفغشٔح ّٓ ل١ّس )”azmaH“( emaNtsaL .”azmaH damhA“: فغ١ْي١ٕحCo ِٓ خلاي emaNlluFteG .eerF.Aoِٓ خلاي جلأِش . ذْذ جلإٔطٙحء ِٓ ضْحٍِٕح ِِ جٌىحتٓ ضُ ضكش٠شٖ أٚ ئٔٙحؤٖ 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ؟eerF.Co ٚ eerF.Boىرْح ٔكٓ ٍُْٔ ج٢ْ ٌّحرج ٌُ ٔطرِ جلأِش جٌغحذك ذأِش ذْذ ضكش٠ش جٌىحتٓ لّٕح ذحٌطأو١ذ ٍّٝ أْ جٌّطغ١شجش ج٢ْ لا ضؾ١ش ئٌٝ أٞ ؽٟء ٚرٌه ذطخق١ـ . ٌىً ِٕٙحlinل١ّس ٠ّىٓ أ٠نح ضكش٠ش جٌىحتٓ ٚ ضقف١ش جٌّطغ١ش فٟ ٚلص ٚجقذ ّٓ ىش٠ك جلإؾشجت١س .)(liNdnAeerF ;)Ao(liNdnAeerF lin غُ ضمَٛ ذاّيحء ل١ّس Ao٘زٖ جلإؾشجت١س ضمَٛ ذطكش٠ش جٌىحتٓ جٌزٞ ٠ؾ١ش ئٌ١ٗ جٌّطغ١ش .ٌٍّطغ١ش َصائح عُذ انخعايم يع انكائُاث .٠ؿد جٌطْحًِ ِِ جٌىحتٕحش ذحٔطرحٖ ٚؾذ٠س- .مشٚسز ئٔٙحء جٌىحتٓ ٚئفٕحؤٖ ذّؿشد جٔطٙحء جٌكحؾس ئٌ١ٗ- .مشٚسز ضقف١ش أٞ ِطغ١ش ٠ؾ١ش ئٌٝ ٘زج جٌىحتٓ- . أْ ضىْٛ ذشجِؿه ٚجٌطٍْ١ّحش ف١ٙح أوػش ٘١ىٍس ٚضَٕ١ّح- يزانق يجب الإَخباِ إنيٓا جٌمغُ جٌطحٌٟ ٠طٕحٚي ىر١ْس جٌطْحًِ ِِ جٌىحتٕحش ذطفق١ً أوػش، فارج ٚؾذش : ِلاقَس .فْٛذس فٟ ضطرْٗ ج٢ْ؛ ٠ّىٕه ضخّي١ٗ ٚجلأطمحي ِرحؽشز ئٌٝ جٌؿٌٛسجٌطحٌ١س وّح أؽشٔح؛ ٠ؿد جٌطْحًِ ِِ جٌّطغ١شجش ِٓ جٌُٕٛ جٌىحتٕٟ ذؾٟء ِٓ جلأطرحٖ ، ٚ أْ ْٔ ّٛد أٔفغٕح .ٍّٝ آٌ١س ٍّّٙح قطٝ لا ٔمِ فٟ ِيرحضٙح 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www .ف١ّح ٠ٍٟ عٕططرِ عٍٛن جٌّطغ١شجش ٚٔفكـ ل١ّٙح ّٓ لشخ rav ;nosrePT :Ao nigeb . ، ٘زٖ جٌّطغ١ش لا٠ؾ١ش ئٌٝ أٞ وحتٓnosrePT ِٓ ُٔٛ Aoضُ ضْش٠ف جٌّطغ١ش ٚ٠ّىٕٕح ِْشفس ٘زٖ جٌم١ّس ِٓ . ٌىٕٗ لذ ٠كٛٞ ل١ّس ّؾٛجت١س لا ِْٕٝ ٌٙح فٟ ع١حق ذشٔحِؿٕح .)Ao(retnioP خلاي جٌطٍْ١ّس ;etaerC.nosrePT =: Ao ٘زٖ جٌم١ّس Ao ٚ فٟ ٔفظ جٌٛلص ضُ ضخق١ـ ل١ّس ٌٍّطغ١ش nosrePTضُ ئٔؾحء وحتٓ ِٓ ُٔٛ .ٟ٘ ِإؽش ٌٍىحتٓ جٌزٞ ضُ ئٔؾحؤٖ ٌّْٚشفس ٘زج جٌشلُ ٔغطخذَ . ج٢ْ؟ ٟ٘ سلُ ٠ؾ١ش ئٌٝ ّٕٛجْ ِٛلِ فٟ جٌزجوشزAoِحٟ٘ ل١ّس ) ِػلاyfidoM/etaulavEِٓ خلاي ؽحؽس ( )Ao(retnioPجٌطٍْ١ّس ;'damhA' =: emaNtsriF.Ao ;'azmaH' =: emaNtsaL.Ao : ٚأّي١ٕح٘ح ل١ّس emaNtsriF ٔفزٔح ئٌٝ خحف١س فٟ جٌىحتٓ ٟٚ٘ Aoِٓ خلاي جٌّطغ١ش ئرج ئٌٝ ٘زج جٌكذ ضُ جٌطْحًِ " .azmaH : "emaNtsaLٚأّي١ٕح ل١ّس ٌٍخحف١س ". damhA" .ِِ جٌىحتٓ ٚئّيحء ل١ُ ٌخحف١ط١ٓ ف١ٗ ;eerF.Ao جٌىحتٓ ج٢ْ . ٌٍٕفحر ٌٍىحتٓ ٚىٍرٕح ِٕٗ ضذِ١ش ٔفغٗ ٚئٔٙحء ٚؾٛدٖAoٕ٘ح جعطخذِٕح جٌّطغ١ش ؛ فغ١ٕطؽ Aoٌٚٛ قحٌٕٚح ِخحىرس جٌىحتٓ ِشز أخشٜ ِٓ خلاي جٌّطغ١ش . لاٚؾٛد ٌٗ فٟ جٌزجوشز .لأْ جٌىحتٓ ٌُ ٠ْذ ٌٗ ٚؾٛد. ّٓ رٌه خيأ فٟ ٚلص جٌطؾغ١ً ضغ١شش ل١ّطٗ ذْذ ضكش٠ش جٌىحتٓ ذك١ع لا٠ؾ١ش ئٌٝ ؽٟء؟Aoجٌغإجي ً٘ جٌّطغ١ش 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www أٞ لا ضضجي ضكًّ ل١ّس . عٕؿذ٘ح غحذطس ٌُ ضطغ١ش ))Ao(retnioP (Aoٌٛ ضفكقٕح ل١ّس جٌّطغ١ش !جٌْٕٛجْ جٌمذ٠ُ ٌٍىحتٓ جٌزٞ ٌُ ٠ْذ ٌٗ ٚؾٛد ً٘ ٘زٖ ِؾىٍس؟ .ُْٔ فٍٕطخ١ً ِػلا أْ وحتٕح ِح لذ ضُ ضكش٠شٖ ٚ ئٔٙحؤٖ فٟ ِىحْ ِح فٟ جٌرشٔحِؽ، غُ ٠مَٛ جٌّرشِؽ فٟ ِىحْ آخش ِٓ جٌرشٔحِؽ ذّكحٌٚس جٌطْحًِ ِِ ٘زج جٌىحتٓ، ّحدز ٠ٍؿأ جٌّرشِؽ ئٌٝ فكـ ل١ّس جٌّطغ١ش أٚلا ٚجٌطأوذ ِٓ ٚؾٛد ل١ّس ٌٗ لرً جٌطْحًِ ِِ جٌىحتٓ ٚرٌه ّٓ ىش٠ك جٌذجٌس : )(dengissA . . . neht )Ao(dengissA fi :linأٚ ّٓ ىش٠ك جلاعطفغحس ئرج وحْ ِكطٛج٘ح لا ٠غحٚٞ . . . neht lin >< Ao fi . . . neht lin >< )Ao(retnioP fi ف١ٕخذُ جٌّرشِؽ ؾّشجء رٌه، ٚ٠َٓ أْ جٌىحتٓ ! جٌطٍْ١ّحش جٌغحذمس وٍٙح عٛف ضشد ذحلإ٠ؿحخ . لا٠ضجي ق١ح فٟ جٌزجوشز، ٚ ٠رذأ فٟ جٌطْحًِ ِِ ٘زج جٌىحتٓ جٌّشقَٛ، ٕٚ٘ح ضمِ جٌّؾحوً ً٘ ضٛؾذ ىش٠مس ِرحؽشز ٔطأوذ ذٙح ِٓ أْ جٌّطغ١ش ٠ّػً فْلا وحتٕح لحتّح فٟ جٌزجوشز؟ ! ئٌٝ قّذ ٍّّٟ لا ضٛؾذ جلإؾشجء جٌّٕحعد ٌٍّرشِؽ ٘ٛ أْ ٠طخز ع١حعس دفحّ١س ذأْ ٠مَٛ ذطقف١ش جٌّطغ١ش ذْذ ضكش٠ش . ٚئٔٙحء جٌىحتٓ ٌزٌه ٔىشس ذأٔٗ ٠ؿد جلإٔطرحٖ ّٕذ جٌطْحًِ ِِ جٌىحتٕحش، ٚ أْ ٠ىْٛ قحمشج فٟ رٕٕ٘ح دجتّح مشٚسز ئٔٙحء جٌىحتٓ ذْذ جٔطفحء جٌكحؾس ئٌ١ٗ، ذً ٠غطكغٓ أْ ٔمَٛ ذىطحذس ضٍْ١ّحش ئٔٙحء جٌىحتٓ . فٛس وطحذس ضٍْ١ّحش جلإٔؾحء، ٚلرً وطحذس أ٠س ضٍْ١ّحش ضطْحًِ ِْٗ !جٔطٙص جٌؿٌٛس 50 eussI 50جٌْذد سلُ enizagaM A4D moc.bara4ihpled.www ٠غّف ذحٌٕؾش جلإٌىطشٟٚٔ أٚ جلالطرحط أٚ جٌٕمً ٍّٝ ئْ ٠طُ جلإؽحسز ئٌٝ دٌفٟ ٌٍْشخ .ٚلا ٠غّف ذأٞ ؽىً ِٓ أؽىحي جٌٕؾش جٌٛسلٟ دْٚ ئرْ خيٟ ِغرك ِٕطذٜ دٌفٟ ٌٍْشخ ِٕىُ ٚ ئٌ١ىُ عحُ٘ فٟ ضيٛ٠شٖ ذّؾحسوطه فٟ جٌّٕطذٜ ٚ فٟ ِؿٍس ِٕطذٜ دٌفٟ ٌٍْشخ دْٚ ضٕغ١ك ِغرك ئٌٝ ئدجسز FDO/xcoD/coDٌّؾحسوطه فٟ ِمحلاش جٌّؿٍس، أسعً فمو جٌّمحٌس ذأقذ جٌق١غ moc.liamg@bara4ihpled جٌّٕطذٜ