بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة

منذ فترة بعيدة استخدمت بعض ادوات Activex والتي تقوم على التعرف على الاوامر البرمجة وتقوم باضافة بعض السمات لها
يعني عندما تكتب بلغة الدلفي مثلا في الاداة والتي هي عبارة ربما عن الاداة RithTextBox
ولا اعرف ما تتبع في الدلفي ربما TRithText
المهم ان الاداة تبحث عن الاوامر التي تحتاج الى ان يكون لونها ازرق مثلا وتجعل لونها ازرق
والتعليقات تجعلها خضراء أي بمعنى اي سطر يبداء بالحروف //
مثلا
قمت ببرمجة اداة في الفجوال وعملت بنسبة نجاح حوالي 80%
ولكن كان لها عيب كبير وهو انها تاخذ وقتا في هذه العملية
والادوات الاحترافية التي رأيتها لا تأخذ الا اجزاء من الثانية
أي انها لا تستخدم أي عمليات بحث تقليدية.
وخمنت انها تقوم بتغيير النص ليس بعملية التضليل واضافة اللون المطلوب.
وانما تاخذ النص وتضيف له السمات الخاصة بالاداة Rithtext
تم تعاود اسناده الى الاداة من جديد.

طبعا النص بحاله العادية لا سمات له ولكن اذا كان له سمات وما تشير له الاداة بالـ Rtf
وهو التنسيق المسئول عن اضافة النص بالالوان واحجام مختلفة وغيرها.

بمعنى اخر
اذا كتبت في الاداة كلمة Begin
من لعبث ان اضللها تم اسند لها لون معين لان الاداة سيكون ادائها بطئ.
ولكن ماذا اذا اضفت لها السمة التالية مثلا.
/C1/ Begin/
أي كل كلمة مثلها اضيف لها هذه السمة والتي تعني اللون الازرق.
وطبعا من الممكن ان تتغير على حسب تعريفنا لهذا المتغير C1

على العموم هذه الطريقة افلحت نوعا ما ولكنني الان اقول
يا مبرمجي الدلفي كيف يمكننا ان نمبرمج اداة اذا قمت بكتابة كود باسكال فيها تعرفت عليه ولونت الاوامر الخاصة بلون معين
وايضا بحال النسخ واللصق كذلك.

بصراحة لا اعرف انا مبتدئ لغة دلفي
وافكر في برمجة برنامج لحفظ شيفرات الدلفي بالدلفي ومنها اتعلم ومنها احفظ الشيفرات التي اتحصل عليها منكم فيه ومنها نعطيه للاخرين ليستفيدوا منه

هذا كل ما في الموضوع
وشكرا

استخدم SynEdit بها كل الذي تريده جاهز ودعم لحوالي نصوص 40 لغة برمجة أو اكثر

ماشاء الله عليك يا اخ محمد وما شاء الله على الدلفي

كل شئ جاهز
حتى في منتداه حتى الكلمات المشهورة وشائعة الاستخدام موجودة بنقرة زر عند كتابة المواضيع

الله يرحمك يا فجوال بيسك 6

لا زال هناك الكثير يستعملونه ...

بالنسبة لي واحد من أفضل القرارات التى اخذتها في تاريخي التقني هوا الانتقال من فيجوال بيسيك الى دلفي ;-)، وكان ذلك قبل ان تقوم ميكروسوفت بتجاهلها وتجاهل جميع مبرمجيه

الاخوة الاعزاء
لا يستخدم الميت الا ميت
بمعنى لا يستخدم برنامج ميت الا مبرمج طموحه البرمجي ميت

انا كنت مبرمج فجوال بيسك 6 منذ زمن بعيد
ويا لخسارة الايام والليالي التي قضيتها ادرسه وامحصه.
احيانا ابقى حتى شروق الشمس

الى درجة جعلتني متمكننا فيه كثيرا
وانشاءت مكتباتي الخاصة وادواتي الخاصة

وكان هناك شيئا لا يريحني فيه.
فازيد من البحث والدراسة
وكلما ازددت معرفة كلما ازداد شكي فيه انه برنامج ينفع للهو اكثر من نفعه لانشاء برامج جدية

مشاكل لاحدود لها ورسائل اخطاء كثيرة
ويا للروعة لانشاء برامج جدية تحتاج الى استخدام مكتبات وادوات خارجية
واستعد للمشاكل.

أعجبتني فكرة الملف التنفيدي الواحد في الدلفي قبل ان انتقل الى الفجوال نت
الفجوال نت احياء المبرمجين الفجوالليين
وانا واحد منهم بعد اكثر من خمس سنوات دراسة متواصلة للفجوال 6 قررت الانتقال الى لغة برمجة اخرى وظهر الفجوال نت

وكان هو بالضبط ما احتاجه
ولكن ظهرت عيوب جديدة
بطئ
اعتماده على الفرامم وورك
عدم استقلاليته عن نظام التشغيل
وغيرها

احب تلك النوافذ التي تقفز بسرعة الى الشاشة عند تنفيذ المشروع
او التعبئة السريعة للبيانات في الادوات

الدلفي مثال جيد للاستقلالية والجدية
حتى وان كان به شئ من التعقيد
وهو ربما لتعودنا نحن على لاسهولة في الفجوال بيسك
فمثلا عند كتابتك
Text1.Visbale=
بمجرد كتابة =
يظهر لك التركيب ويحتوي على
True and False
وهو ما ليس موجودا بالدلفي
أي يجب كتابتك لذلك يدوياً
كما ان الدلفي له عيوب في IDE
فهو غير مرتب ونوافذة موجودة بشكل مزعج
وقد صححت الشركة ذلك في اصداراتها الاخيرة ورأيت عملها الجيد

المهم ان الشركة تتابع برنامجها وتطوره افضل من برنامج لا أمل في تطور يحدث له

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


من القائمة ملف جديد اخترت Unit
ولكن الدلفي يعترض
أعلم ان الامر سهل كثيرا ولكن لي كمبتدئ صعب

لاي لغة برمجة تنسيق في مواقع وجود الاوامر والتعريفات وغيرها
وهناك هنا ترتيب لا اعرفه

اذا احد من الاخوة وضح لنا هنا بالتفصيل ما الذي يحدث وما يجب ان يكون وما يجب ان لا يكون وله جزيل الشكر

وهذا موجز بسيط لنتيجة ما لاحظته
وإن شاء الله مبرمجي الفجوال 6 يهجرون البرنامج العديم الفائدة المسمى Visual Basic 6

والسلام عليكم ورحمة الله وبركاته

البداية فقط ... فترة الانتقال الاولى إلى دلفي تظهر انها معقدة , وهذا طبعاً لانه مرنة , وهذا ما لم تعتد أنت عليه ...

عادي , Relax

أعتقد أن هذه فكرة خاطئة، انا كنت مبرمج VB سابق ومدرب معتمد من ميكروسوفت في VB ودوت نت أيضاً

مشكلة VB أنه يعودك على الأشياء بشكل سهل ولكن بشكل غير منطقي كمبرمج، باسكال اللغة الأم لدلفي صممت أصلاً لتعليم اللبرمجة بشكلك صحيح، وهنا أقتبس مقولة من ويكيبيديا



الصعوبة التى يواجهها الكثيرين عند الانتقال لدلفي هي محاولة تطبيق فهمهم للغة السابقة على دلفي، وهذا يسبب اللبس، فمثلاً هذه الجملة صحيحة في VB



لكنها لن تعمل في أي لغة برمجة أخرى حتى فيجوال بيسيك دوت نت، الكثير كان يعتبر استخدام المتغيرات دون تعريف عبارة عن مرونة، وايضاً اسناد متغيرات والتحويل الضمني، لكن نجد اللغات الجديدة كلها اعتمدت منهج لغة باسكال وهو لابد من التحويل الصريح

وايضا جملة مثل


أي مبرمج من أي لغة أخرى (وكثير من مبرمجي فيجوال بيسيك) سوف يتصور أنها تعرف المتغيرات من integer ولكن المتغير الوحيد من نوع Integer هنا هو z والباقي سوف يكون من نوع variant لذا فالجملة التالية صحيحة في نظر VB ولكن لا تصلح لاي لغة اخرى



اما بالنسبة لدلفي وباسكال فمن البداية يجبر المبرمج على أن يكون كل شيء معرف وبشكل صحيح والاسناد لابد أن يتم بشكل صحيح أيضاً لذا فهي أقل لغة برمجة نحصل على أخطاء بها في وقت عمل البرنامج حيث ان المترجم سوف يرفض الكثير من الجمل ان لم تكون صحيحة ومنطقية في وقت التصميم

السلام عليكم...

ربما تكون هذه المشاركة غير متعلقة بعنوان الموضوع، لكنها إجابة على تساؤل الأخ Framework2:



بالنسبة إلى تحديد المتغيرات و الثوابت و الإجراءات و الدوال الخاصة (Private) و العامة (Public) في دلفي فالأمر سهل:
* كل ما هو مصرح عنه في القسم interface فهو عام، أي يمكنك الوصول إليه من وحدات برمجية أخرى بشرط تضمين الوحدة البرمجية الحالية في تلك الوحدة البرمجية الأخرى باستعمال جملة uses.
* كل ما هو مصرح عنه في القسم implementation فهو خاص بتلك الوحدة فقط.

ملاحظة: بالنسبة إلى الإجراءات (Procedures) و الدوال (Functions) فإنه لا يمكن كتابة التعريف (Definition)، أي جسم الإجراء أو الدالة الذي يحتوي على التعليمات المطلوب تنفيذها، إلا ضمن القسم implementation، و لكي نجعل الإجراء أو الدالة عامة (Public) فإننا نضع تصريحاً لها (Declaration) في القسم interface. و التصريح عبارة عن رأس الإجراء أو الدالة فقط.

انسخ الكود

//...
 
interface    // كل ما يكتب تحت هذا القسم فهو عام
 
uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;
 
type    // Public types here:
 
    TDataOperation = (doAddNew, doModify, doDelete);    // public enumeration.
 
    TEmplyeeInf = record    // public record type
        ID: Integer;
        Name: string;
        BDate: TDate;
    end;
 
    TForm1 = class(TForm)    // public class
 
    private
        // private members of the class
    public
        //public members of the class
    end;
 
const    // public constants:
    PI = 3.141592;
    MyDbName = 'EmpData.mdb';
 
var    // public variables:
    Form1: TForm1;
 
    StepCounter: Integer;
    EmpInfo: TEmplyeeInf;
    FileSaved: Boolean;
 
function CircleArea(Radius: Real): Real;    // تصريح مسبق عن دالة معرفة فيما بعد - و بالتالي فه
ي عامة
 
implementation    // كل ما يكتب تحت هذا القسم فهو خاص
 
{$R *.dfm}
 
type   // private types:
    TEngNums = (enOne, enTwo, enThree, enFour);
    TByteBits: 0..7;
    TSomeArabs = set of (Libya, Tunisia, Algeria, Morocco);
 
const    // private constants:
    SECONDS_IN_HOUR = 3600;
 
var    // private variables:
    LastIndex: Integer;
 
procedure ShowMe();    // private procedure
begin
// ...
// ...
end;
 
function CircleArea(Radius: Real): Real;    // public function because it is declared in the in
terface section
begin
    Result := PI * Radius * Radius;
end;
 
// ...
// ...
 
end.
 

أما الكلمتين Private و Public (بالإضافة إلى Protected و Published) فتستخدم ضمن تعريف الـ Class لتحديد الأعضاء الخاصة (Private Members) و الأعضاء العامة (Public Members) للكائنات (Objects) المشتقة من تلك الـ Class. طبعاً الأعضاء الـ Public و الـ Published تشكل الخصائص (Properties) و المناهج (Methods) و الأحداث (Events) المتعلقة بتلك الـ Class.

نرجو الاستفادة و السلام.

الاخوة الاعزاء

لا تتحاملوا علي كثيرا لذكر بعض العيوب الصغيرة او البسيطة مقارنة بالخدمات التي يقدمها الدلفي.
كما يفعل مبرمجي الفجوال عندما اذكر لهم عيوب برنامجهم مادحا الدلفي.

كما قال خبير دلفي عن المتغيرات صحيح فانا لم اعيب الدلفي كلغة
والمتغيرات تلك ستكون من النوع Object على ما اعتقد
ولكنني عبت مثلا عدم تكملته للكود بالتركيب المناسب للخاصية
واعيب فيه كثرة استعمال
Begin

end;

كما ان الواجهة ليست مريحة كثيرا في العمل.
ولكن كل هذا ليس مهما احيانا مقابل الخدمات التي يقدمها
وقريبا جدا سانتقل الى الدلفي 2007 فلابد وان هناك تطويرات كثيرة بالواجهة وغيرها

وانا من البداية قلت ان الدلفي افصضل من الفجوال بيسك
هذا لا يختلف عليه أثنان مدركين جيدا للغتين.


اما بخصوص رد الاخ خبير ديلفي
واجابته عن التسأل
فشكرا كثيرا يا خبير ديلفي
اجابتك فيها بعض المطلوب
ولكن ياليت تخبرني ما الخطاء في الـ Unit التي كتبتها
اي بخصوص انشاء Unit جديدة
عندما احاول تعريف متغيرات عامة او خاصة فيها احصل على خطاء

وايضا لي سؤال اخر
عندي نموذجين النموذج الاول به زر والنموذج الثاني عليه مؤقت قيمة الخاصية Enabled=false;
عندما اشغل البرنامج اجد ان المؤقت يعمل مع ان النموذج الرئيسي للبرنامج هو النموذج الاول.

والسؤال الثاني
لماذا لا يضيف الدلفي اداة Activex الى المشروع ويضيفه كمشروع مستقل
وهل الاداة Frame تعتبر بديل له للاستخدامات بداخل المشروع

عذرا يا جماعة انني اسأل قبل البحث الكثير ولكن في الحقيقة اضعت الكثير من الوقت على الفجوال واريد ان اتقدم بسرعة مع الدلفي وليس لدي خيار اخر
الا ان اخذ المعلومات جاهزة

ولاحضوا جملة ليس عندي وقت
يعني من المهم ان اجيد الدلفي في شهر واحد على الاقل

وشكرا جزيلا لكم مرة أخرى
والله الموفق

السلام عليكم...



إذا كنت تقصد الكود المرفق في المشاركة رقم 6 فالتوضيح هو:

الخطأ هو استعمال كلمتي Private و Public كجمل مستقلة. هاتان الكلمتان تستعملان فقط ضمن تعريف الـ Class و التي يمكنها أن تضم 4 أنواع من المحددات (Private و Protected و Public و Published) كما في الشكل التالي (دون توسع في الشرح):
انسخ الكود

type
 
    TMyNewClass = class(T...)    // بداية تعريف الصنف
        private
            // المتغيرات و الإجراءات و الدوال الخاصة
        protected
            // المتغيرات و الإجراءات و الدوال المحمية
        public
            // المتغيرات و الإجراءات و الدوال العامة
        published
            // المتغيرات و الإجراءات و الدوال المنشورة - و هي التي تظهر في نافذة الخصائص أثناء 
التصميم
    end;    // نهاية تعريف الصنف
 

لاحظ أن تلك الكلمات الأربع جاءت ضمن كتلة تعريف الصنف (Class) أي بين السطر TMyNewClass = class و كلمة end في النهاية.

أعتقد أن ما يسبب اللخبطة للبعض هو السؤال التالي:
إذا قلنا أن المتغيرات المصرح عنها في القسم interface (كمتغيرات مستقلة لوحدها) هي متغيرات عامة (Public) فما الفرق بينها و بين المتغيرات المعرفة في القسم Public ضمن تعريف الـ Class؟

المتغيرات المعرفة ضمن القسم interface هي متغيرات مستقلة، أي غير مرتبطة بكائن، و بالتالي يمكنني الوصول إليها مباشرة من أي مكان في الكود بشكل مباشر بمجرد ذكر اسم المتغير، أما المتغيرات المصرح عنها في القسم public التابع للـ Class فإنه يمكن الوصول إليها مقترنة باسم الكائن المشتق من تلك الـ Class. و هي في الواقع تمثل خصائص (Properties) لذلك الكائن.

مثلاً:
انسخ الكود

//...
interface
// ....
type
    TMyNewClass = class(Tobject)
        private
            //
        public
            MyID: Integer;
            MyName: string;
    end;    // نهاية تعريف الصنف
 
var
    MyID: Integer;
    MyName: string;
 
    MyNewObject: TMyNewClass;
 
implementation
// ....
 
end.
 

لاحظ أننا عرفنا كائن باسم MyNewObject مشتق من الصنف TMyNewClass.
لو أخذنا MyID كمثال. لدينا نسختان منه: الأول هو المصرح عنه ضمن تعريف الصنف TMyNewClass، و لذلك فهو يسمى عضو عام (Public Member) في ذلك الصنف، و بالتالي فهو عضو عام في الكائن MyNewObject المشتق من الصنف TMyNewClass.
الثاني مصرح عنه كمتغير مستقل في القسم interface.

أيضاً ما الفرق؟
المتغير المستقل نصل إليه بذكر اسمه لوحده كما يلي:
انسخ الكود

MyID := 100;    // تخزين قيمة في المتغير
// أو
Edit1.Text := IntToStr(MyID);    // قراءة قيمة المتغير
 

أما المصرح عنه ضمن القسم public التابع للـ Class فلابد من اقترانه باسم كائن مشتق من تلك الـ Class، مثلا:
انسخ الكود

MyNewObject.MyID := 100;    // تخزين قيمة في المتغير
// أو
Edit1.Text := IntToStr(MyNewObject.MyID);    // قراءة قيمة المتغير
 

في الحالة الثانية (المصرح عنه ضمن القسم public التابع للـ Class) أنت في الواقع تتعامل مع خاصية (Property) تابعة لكائن (Object) و إن كانت هذه الطريقة ليست هي الطريقة المفضلة لإنشاء خصائص للكائنات.

أرجو أن تكون تلك النقطة قد أصبحت واضحة.
==============================

إقتباس

عندي نموذجين النموذج الاول به زر والنموذج الثاني عليه مؤقت قيمة الخاصية Enabled=false;
عندما اشغل البرنامج اجد ان المؤقت يعمل مع ان النموذج الرئيسي للبرنامج هو النموذج الاول.

ذلك يعود لطريقة دلفي الافتراضية في إنشاء النوافذ أثناء التشغيل! حيث أن كل نافذة تضيفها إلى مشروعك يتم إنشاؤها تلقائياً بمجرد تشغيل البرنامج إلا أنها تظل مخفية حتى يتم عرضها بواسطة Show أو ShowModal. و مع ذلك فهي موجودة في الذاكرة و يمكنك الوصول إليها بالكود و الوصول إلى مكوناتها. مثلاً يمكن كتابة السطر التالي في الـ Form1
انسخ الكود

    X := Form2.Edit1.Text;
 

مع أن Form2 لا تظهر على الشاشة و لم تطلب أنت أصلاً عرضها... إنها موجودة في الذاكرة و يمكن الوصول إليهأ، ينقصها فقط أن تصبح مرئية.
و بالتالي إن الإجابة على سؤالك هي: الـ Form2 موجودة في الذاكرة و بالتالي فإن الـ Timer يعمل!

مسألة إلغاء الإنشاء التلقائي (Auto-Create) للنوافذ مسألة مهمة إذا كان المشروع يتكون من العديد من النوافذ و خاصة عند التعامل مع قواعد البيانات. إذا كان العديد من النوافذ يحتوي على عدة جداول أو استعلامات، و يتم فتحها جميعاً معاً عند تشغيل البرنامج فإن ذلك قد يستهلك الكثير من الذاكرة أو ازدحام الشبكة و قد يؤدي إلى توقف البرنامج.

تسمح لك دلفي بإلغاء الإنشاء التلقائي للنوافذ، بحيث يتم إنشاؤها فقط عند الحاجة إليها. أنا شخصياً - حتى في المشاريع الصغيرة - أمنع الإنشاء التلقائي لجميع النوافذ ما عدا طبعاً النافذة الرئيسية.

للقيام بذلك اتبع الخطوات التالية:
1. من القائمة Project اختر الأمر Options
2. في نافذة الخيارات تأكد من اختيار الصفحة Forms
3. ستجد لديك في الأسفل قائمتين: القائمة اليسرى تسمي Auto-create forms و القائمة اليمينى تسمى Available forms
4. في القائمة اليسرى حدد اسم الـ Form التي تريد نقلها ثم انقر زر السهم لنقاها إلى القائمة اليمنى.
5. انقر الزر OK

بهذا الشكل لن يتم إنشاء الـ Form التي تم نقلها إلى اليمين. لكن كيف يمكن إنشاؤها عند الحاجة إليها؟

نفرض أن لدينا الزر Botton1 في الـ Form1 و عند النقر عليه نريد عرض الـ Form2. بدلاً من استخدام سطر واحد للعرض: Form2.Show نحتاج إلى كود كالتالي:
انسخ الكود

procedure TFRtlForm1.Button1Click(Sender: TObject);
begin
    // إنشاء النافذة إذا لم تكن كذلك
    if not Assigned(Form2) then Form2 := TForm2.Create(Application);
    // عرض النافذة
    Form2.Show;     // OR Form2.ShowModal;
end;
 

السطر الأول يتأكد مما إذا كان المتغير Form2 الذي يمثل النافذة فارغاً (nil) أم لا ، و إذا كان nil فإنه يقوم بإنشاء النافذة باستخدام اسم الـ Class الذي تنتمي إليه النافذة (TForm2). ثم يتم عرض النافذة بالسطر الثاني.
و لكن ما زالت هناك خدعة في دلفي!! و هي أنه عند إغلاق النافذة فإنها تختفي من على الشاشة لكنها تبقى في الذاكرة شغالة! هذا هو السلوك الافتراضي في نوافذ دلفي.
لكي يتم فعلاً إغلاق النافذة و إزالتها من الذاكرة نستعمل معالج الحدث OnClose للـ Form

انسخ الكود

 
procedure TFRtlForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;    // تغيير السلوك الافتراضي للإغلاق
    Form2 := nil;    // ضبط المتغير على لا شيء
end;
 

نرجو الاستفادة و السلام.

جميل
و
رائع

هذا هو

بدأت افهمك يادلفي

ولكن هل من يخبرنا كيف نقوم بوراثة المكونات واضافة الخصائص الجديدة لها او التعديل في خاصية موجودة

وكيف يمكننا اضافة مكون من نوع Activex او شبيه له للمشروع واستخدامه
ولاحظ انني اقصد مكون انا ابرمجه واستخدمه من داخل مشروعي ولا استعين به من الخارج

وهل Fream هل الحل الوحيد
وهل يمكن اضافة واسقاطه على النموذج بزمن التصميم

وشكرا لكم كثيرا