waeldalol

لا أعلم ربما لأنك تستخدم 2007. كلامك غير دقيق,فدلفي 2007 مازالت على خطا سابقتيها, و لم يتم تغيير اي شيئ, أنما أنت وضعت نوع الفورم هو MDI وبهذه الاخيرة يظهر لوحده دون عمل show له, نفس الشي بالنسبة لدلفي 3,4,5,6,7,2006,2007.

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات، فقرة استخدام البحث قبل السؤال. قواعد طرح المشاركات /index.php?showtopic=29343 شاكرين لكم حُسن تع…

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات، فقرة استخدام البحث قبل السؤال. قواعد طرح المشاركات /index.php?showtopic=29343 شاكرين لكم حُسن تع…

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات، فقرة استخدام البحث قبل السؤال. قواعد طرح المشاركات /index.php?showtopic=29343 شاكرين لكم حُسن تع…

أخي الكريم, قارئ الباركود الذي تعمل عليه معرف على أنه HID يعني مثله مثل الكيبورد, و بما أنه كذلك فيجب تعليم وتدريب المستخدم على كيفية استخدامه مثل الكيبورد فلا يعقل مثلا, أنني أريد أن أكتب اسم ما في Edit و من ثم أكتبها في Edit أخر غير مخصص لهذا الأمر. أما بخصو…

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات . قواعد طرح المشاركات /index.php?showtopic=29343 شاكرين لكم حُسن تعاونكم

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات، فقرة استخدام البحث قبل السؤال. قواعد طرح المشاركات /index.php?showtopic=29343 شاكرين لكم حُسن تع…

بارك الله بك أخي محمد نسمان, فقد قمت بعمل جبار لجمع الاخبار من على المدونات, دائما تأتينا بما هو جديد.و اسمح لي سوف أعلق هنا دعم يونيكود ممتاز جدا و سوف يساهم في حل الكثير من مشاكل اللغة التي كان دائما Cipher يقول بها أنه يجب استخدام مكونات Tms لم أعد أذكر ما …

اخي الكريم ألم تجرب ردي السابق؟؟!, حيث أنّ كلا التابعان Cast, Convert يعملان في SQL server.

هذا لأنك تستخدم الامر Run حيث لا يمكن عمل Run لمكتبة إنما Install, إذهب إلى Project Manager و أنقر على الحزمة زر يميني و من ثم Install.

إقرأ ملفات المساعدة التي تأتي مع ال Dongle, و إيضا أنظر في ال SDK القادمة معه فسوف تجد كيف تتعامل معه. حيث أنّ الأمر ليس Standard و يختلف من شركة مصنعة لشركة آخرى. و كل شركة لها توابعها و مكتباتها.

هي تأخذ وقت كبير من ال CPU ولكن ليس كله, جرب التالي procedure TForm1.Button1Click(Sender: TObject); var I : Integer; begin ProgressBar1.Max := 1000000; ProgressBar1.Step := 1; for I := 0 to 1000000 do begin ProgressBar1.StepIt; Application.ProcessMessages; end…

اخي الكريم, هل جربت البحث ب Google قبل وضع سؤالك في المنتدى؟ هكذا Google لكي تجد رابط كهذا ؟

شكرا اخ najy_zl على الرد المنسق, لمزيد من المعلومات حول DLL يمكنك ايضا الاطلاع على المشاركة التالية: سلسلة بوليسية شيقة حول DLL, لا تتردد بالدخول, كل ما تريد معرفته حول ملفات DLL

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات، فقرة استخدام البحث قبل السؤال. قواعد طرح المشاركات /index.php?showtopic=29343 شاكرين لكم حُسن تع…

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته. مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات، فقرة طلب حل الواجبات والتمارين وأعمال السنة. قواعد طرح المشاركات /index.php?showtopic=29343 شاك…

لقد كتبت الحل في مشاركة سابقة هل اطلعت عليه؟ و لكن الدالة التي كتبتها تعيد Boolean و ليس Integer

طريقة اخرى باستخدام الامر test في لغة التجميع function TForm1.Iseven2(Num:integer):boolean; var Resl:integer; label odd ,even, EndProc; begin asm mov eax,Num test eax,1 jnz odd jmp even odd: mov Resl,1 jmp EndProc even: mov Resl,0 end; EndProc: if Resl = 0 the…

:lol: :lol: procedure TForm1.Edit1Change(Sender: TObject); var num: integer; begin num:= StrToIntDef(Edit1.Text,0); if Iseven1(num) then Label1.Caption := 'زوجي' else Label1.Caption := 'فردي' end; function TForm1.Iseven(Num:integer):boolean; var Resl:integer; …

طريقة اخرى: لمعرفة رقم ما هو فردى او زوجى نقوم بمقارنة اول بت فى الرقم, فإذا كان اول رقم يساوى 1 إذاً الرقم فردى وإذا كان يساوى 0 فالرقم زوجى, وذلك بعد تحويل الرقم إلى Binary اي 0 و1 procedure TForm1.Edit1Change(Sender: TObject); var num: integer; begin num:= …