اقدم لكم بعض اكود لغة الدلفي

اقدم لكم بعض اكود لغة الدلفي


صفحة 1 من 2 12 الأخيرةالأخيرة
النتائج 1 إلى 10 من 16

الموضوع: اقدم لكم بعض اكود لغة الدلفي

  1. #1
    هكر مبتديء
    تاريخ التسجيل
    Jan 2010
    الدولة
    ليبيا طرابلس
    المشاركات
    6

    افتراضي اقدم لكم بعض اكود لغة الدلفي

    اقدم لكم بعض الافكار من خبرتي في البرمجة

    لتحميل الكتاب كامل من
    من هنا
    http://www.aljyyosh.com/vb/attachmen...1&d=1262629311
    خوئص الكتاب

    كيف تبحث في أكثر من حقل بإستخدام تعليمة Locate :

    يمكن البحث بإستخدام تعليمة Locate في أكثر من حقل بحيث نبحث عن الموظف حسب حقل الإسم الأول و حقل الإسم الثاني . فإذا كان حقل الإسم الأول F_name والإسم الثاني L_name والقيم في Edit1 و Edit2 على التوالي أمكننا ببساطة كتابة الشفرة التالية :

    SQL

    if not ClientDataSet1.Locate( 'F_Name;L_Name',vararrayof([edit1.Text,Edit2.Text]),[]) then
    showmessage( 'Filed Not Found');



    ويتم ذلك بفصل الحقول المراد البحث فيها بفاصلة منقوطة , وفصل القيم بإستخدام الدالة VarArrayOf



    كيف تبحث عن تطابق جزئي بإستخدام تعليمة Locate :

    مثلا يمكننا البحث حسب بداية كلمة ما , حيث يكفي كتابة الأحرف الأولى من الإسم لإظهار نتيجة السجل . مثال يكفي كتابة "عرو" لإظهار سجل الموظف "عروة "


    كود

    if not ClientDataSet1.Locate('F_Name',edit3.Text,[loPartialKey]) then
    showmessage('Filed Not Found');

    ويتم ذلك بإستخدام الخيار [loPartialKey] الذي يحدد التطابق الجزئي للبحث



    كيفية إظهار مربع الإتصال بإنترنت
    وكيفية إختبار إذا كنا متصلين بإنترنت أو لا

    أولا أضف الوحدة WinInet مع الوحدات :



    SQL

    USES
    WinInet;



    ثم أكتب التابع التالي



    SQL

    function InternetConnected: Boolean;
    CONST
    INTERNET_CONNECTION_MODEM = 1; // local system uses a modem to connect to the Internet.
    INTERNET_CONNECTION_LAN = 2; // local system uses a local area network to connect to the Internet.
    INTERNET_CONNECTION_PROXY = 4; // local system uses a proxy server to connect to the Internet.
    INTERNET_CONNECTION_MODEM_BUSY = 8; // local system's modem is busy with a non -Internet connection.
    VAR
    dwConnectionTypes : DWORD;
    BEG IN dwConnectionTypes : =
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
    Result : = InternetGetConnectedState(@dwConnectionTypes,0);
    END;



    من أجل فتح مربع الإتصال بإنترنت أكتب الشفرة التالية :



    SQL

    procedure TForm1.Button1Click(Sender: TObject);
    beg in if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle) then
    MessageDlg( ' لايوجد إتصال ', mtError, [mbOk], 0);
    end;


    من أجل إختبار إذا كنا متصلين بإنترنت أو لا :



    SQL

    procedure TForm1.Button2Click(Sender: TObject);
    beg in if InternetConnected then
    showmessage( ' متصل حاليا بإنترنت ')
    else beg in showmessage( ' غير متصل بإنترنت ');
    InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle);
    end;
    end;




    تحويل الكتابه عربي > أنكليزي وبالعكس

    للتحويل إلى اللغة العربية :



    كود

    LOADKEYBOARdlayout('00000401',klf_activate);



    للتحويل إلى اللغة الإنكليزية :



    كود

    LOADKEYBOARdlayout('00000409',klf_activate);





    تحويل الصورة من BMP إلى JPG :


    أضف الوحدة JPEG :

    كود

    uses JPEG


    ثم ضع هذا الكود في المكان المناسب



    كود

    var jpg:TJPEGImage;
    begin
    jpg:=TJPEGImage.Create;
    with jpg do begin
    Assign(Image1.Picture.Bitmap);
    SaveToFile('my jpeg.jpg');
    end;
    end;
    الملفات المرفقة الملفات المرفقة

  2. #2

    افتراضي رد: اقدم لكم بعض اكود لغة الدلفي

    مشكوووووووووووووووووووووو وووووووووووووووووووور

  3. #3

    افتراضي رد: اقدم لكم بعض اكود لغة الدلفي

    procedure TForm1.Button1Click(Sender: TObject);
    beg in if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle) then
    MessageDlg( ' لايوجد إتصال ', mtError, [mbOk], 0);
    end;

  4. #4

    افتراضي رد: اقدم لكم بعض اكود لغة الدلفي

    يعجز اللسان عن شكر مجهوداتك الكبيره يعطيك الف عافيه

  5. #5

    افتراضي رد: اقدم لكم بعض اكود لغة الدلفي

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

  6. #6

    افتراضي رد: اقدم لكم بعض اكود لغة الدلفي

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

  7. #7

    افتراضي رد: اقدم لكم بعض اكود لغة الدلفي

    يعطيك العافيه واصل نشاطك

  8. #8

    افتراضي رد: اقدم لكم بعض اكود لغة الدلفي

    بالتوفيق والى الامام

  9. #9

    افتراضي رد: اقدم لكم بعض اكود لغة الدلفي

    يعطيك العافيه

  10. #10

    افتراضي رد: اقدم لكم بعض اكود لغة الدلفي

    شكرا لك اخي الفاظل

صفحة 1 من 2 12 الأخيرةالأخيرة

المواضيع المتشابهه

  1. كتاب تعلم الدلفي بالعربية
    بواسطة طائر العنقاء في المنتدى قسم لغة الدلفى
    مشاركات: 62
    آخر مشاركة: 05-06-2012, 02:59 PM
  2. اقدم لكم الصور الترفهيه 2
    بواسطة Snake HaCkEr في المنتدى المنتدى العام
    مشاركات: 8
    آخر مشاركة: 08-22-2011, 12:54 AM
  3. اقدم لكم لعبة : matrix
    بواسطة Snake HaCkEr في المنتدى منتدى الالعاب - تحميل العاب
    مشاركات: 7
    آخر مشاركة: 01-23-2011, 05:34 AM
  4. اقدم لكم الصور الترفهيه 5
    بواسطة Snake HaCkEr في المنتدى المنتدى العام
    مشاركات: 9
    آخر مشاركة: 03-18-2010, 12:31 PM
  5. اقدم لكم الصور الترفهيه 3
    بواسطة Snake HaCkEr في المنتدى المنتدى العام
    مشاركات: 2
    آخر مشاركة: 08-24-2009, 09:17 AM

المفضلات

أذونات المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •