YaSeenTA

ستحتاج لمعرفة جيدة بتركيبة الـ PDF حتى تستطيع عمل ذلك بنفسك .. او عليك إستخدام مكونات جاهزة ستجد منها مجاني وتجد منها مفتوح المصدر مثلاً ImageEN . سجل في الموقع وقم بتحميل المكتبة (في الأمثلة ستجد مثال عن سؤاليك وبامكانك التعديل فيهما كما تشاء). أو Haru Free P…

هل جربت Rational Software Architect من IBM ؟ فيه JAVA to UML Transformation . لا يوجد لدي البرنامج للتجربة .. جرب هذا أيضاً http://kenai.com/projects/java2uml

ان كانت برامجك موجهة لمستخدمي windows فلا تستخدم CLX component (أي مكون يبدأ عادة بحرف Q ) , قم بإستبدالها بمكونات من VCL. CLX خاصة بـ Kylix لعمل برامج على يمكن تشغيلها على Linux . عند عمل برنامج جديد إنتبه لهذه النقطة .

قبل أن تضع تساؤل سأضع لك سؤال كي تقوم بالمحاولة لعمل المطلوب (ستحتاج لمراجعة Delphi Help ) الشفرات السابقة تتعامل مع الـ selected node كما هو ملاحظ كيف نظهر معلومات الـ node حين عمل إخفاء أو إظهار لأبناءها. أقصد عند الضغط على السهم او علامة + في الشجرة , لانه …

المسألة ليست صعبة .فقط شوية تفكير وتعديل في آخر كود يمكنك عمل ما تريد . في البداية نضف النوع الآتي ذكره ليشمل المعلومات المراد معرفتها (بامكانك إضافة أشياء أخرى مستقبلا) type PNodeInfo=^TNodeInfo; TNodeInfo= record path:String; level:integer; end; ثم نعدل آخر …

تساؤل جيد , المعذرة لأني غفلت عنه ... هذا كود يعتمد على الخاصية Selected التابعة لـ Treeview. جرب الكود و ضع أي ملاحظات ... function GetNodePath(tmpNode:TTreeNode):string; begin while(tmpNode<>nil)do begin result:=tmpNode.Text+result; tmpNode:=tmpNode.Parent; …

رمضان كريم كود كالآتي قد يفي بالغرض procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var tmpNode:TTreeNode; begin tmpNode:= treeview1.GetNodeAt(x,y); edit1.Text:=''; while(tmpNode<>nil)do begin edit…

عدد الإحتمالات الممكنة هو مضروب n n! factorial of n

الكود في ردي فيه خطأ في وضع الـ nodes في الـ tree .. جرب المثال A TreeView of Data بإمكانك تغييره بما يتناسب مع ما تريد

جرب هذا الكود ربما هناك حلول افضل ... uses comobj,excel97,excel2000; ... procedure ExcelToTreeView(EXLfile:string;treeView:TTreeView); var sheet,XLApp,workbook : variant; iRow,iCol,maxRow,maxCol:integer; MyTreeNode1: TTreeNode; root:boolean; begin screen.Curso…

ليس شرطاً أن يتم حفظ الملف بـ UTF-8 encoding . قبل قراءة أي ملف يجب معرفة باي encoding هو و على ضوء ذلك تتم عملية القراءة . فبالإمكان أن يكون utf-8 / utf16 / windows 1256 ... إن كنت أنت من ينشئ الملف فيفضل إستخدام utf-8 او unicode كما أشار الأخ محمد ...

للأسف الشديد فلست مختصاً في برامج البورصة , بل لم أستخدم أي منها البتة ... :) إن كنت تريد إستخدام الـ script في برنامج Amiborker فعليك فهم كل سطر فيه ومن ثم تكتب script جديد مشابه .. فلا أظن ان عملية التحويل ستكون مباشرة خصوصا إن كانت البرامج تعتمد scripts مخت…

الأخ abu mishari: يبدو أن الكود عبارة عن wealthscript خاصة ببرنامج WealthLab والـ script مكتوب بالـ Pascal ؟ هل هذا صحيح؟ Wealth-lab في نسخته الأخيرة يدعم scripts مكتوبه بـ Pascal/Delphi و c# . إن كان الكلام أعلاه صحيح , فلماذا تريد تحويل الكود إلى c++ ؟ وضح أ…

بعد ادخال عنوان اي صفحة ولتكن google في الـ Edit اضغط على Enter من لوحة المفاتيح ... لا مشكلة عندي مع Delphi 7.0 . ليس لدي Delphi 2010 لاجرب ...

لم أفهم المقصود من هذا التساؤل؟ هل ردي بعيد عن الموضوع؟ حاول تنفيذ ما كتبته في برنامج منفرد لبضعه أيام و لاحظ التغييرات التي تحدث في استخدام البرنامج للذاكرة وهل هو مهلك للنظام أم لا ... أظن أن هناك أجزاء أخرى من الكود في برنامجك هي التي تسبب المشكلة. هذا والل…

هل استخدمت ال Timer لتنفيذ أشياء أخرى غير الحصول على التوقيت (ساعة)؟ فمثلاً إضافة Timer وجعل Interval =1000 , ومن ثم إستخدام الكود procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := DateTimeToStr(Now); end; لا أظن أنه سيهلك النظام ... هل هذ…

لماذا لا تستخدم chrometab.dpk من الموقع الذي فيه المثال ؟ لاحظ ما قيل هناك

Absolute C++ http://rs577.rapidshare.com/files/197077923/AbsoC.zip مرفق هنا أيضاً Absolute C++.part1.rar Absolute C++.part2.rar

لا أعلم إن كان هناك كتاب خاص عن Design Patterns in Delphi لكن حاول البحث في النت ... كبداية إقرأ Design Patterns: Elements of Reusable Object-Oriented Software by GOF اما عن المواضيع في النت فستجد الكثير http://www.felix-colibri.com/papers/design_patterns/gof_…

شئ كهذا قد يفيد case table1.fieldbyname('CD_PR').AsInteger of 1..10 : h:=h+table1.fieldbyname('mt').asfloat; 11..20: y:=y+table1.fieldbyname('mt').asfloat; 21..30: x:=x+table1.fieldbyname('mt').asfloat; else doSomething(); end;