Fҝ_ÄĻ_QRŞҢ
عدد المساهمات : 42 تاريخ التسجيل : 28/09/2010
| موضوع: اقدم لكم بعض اكود لغة الدلفي الجمعة أكتوبر 01, 2010 7:26 pm | |
| اقدم لكم بعض الافكار من خبرتي في البرمجة
لتحميل الكتاب كامل من من هنا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] خوئص الكتاب
كيف تبحث في أكثر من حقل بإستخدام تعليمة 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;
تحياتي\ بيكو هكر | |
|