HaCkEr$ f0r SyR!A
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

HaCkEr$ f0r SyR!A

HaCkEr$ f0r SyR!A *^ منــــظمة القـــــــراصـــــنـــة الســـــــورية*^ HaCkEr$ f0r SyR!A
 
الرئيسيةأحدث الصورالتسجيلدخولبرامج بتحميل رائع

 

 اكواد لغة الدلفي الهااامة

اذهب الى الأسفل 
كاتب الموضوعرسالة
Mr-Le0
Admin
Mr-Le0


المساهمات : 393
تاريخ التسجيل : 23/07/2011
العمر : 29
الموقع : http://jsoftj.fanbb.net/

اكواد لغة الدلفي الهااامة Empty
مُساهمةموضوع: اكواد لغة الدلفي الهااامة   اكواد لغة الدلفي الهااامة Icon_minitimeالجمعة أغسطس 12, 2011 7:42 pm

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

لتحميل الكتاب كامل من
من هنا
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;
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://ha-sy.forumc.net
 
اكواد لغة الدلفي الهااامة
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» ما هي لغة الدلفي اساسيات تعلمها هناااا
» كتاب احترافي تعليم لغة الدلفي بالعربية
» شرح فلاشي لصنع برنامج قارء ملفات الدلفي

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
HaCkEr$ f0r SyR!A :: المنتديات البرمجية اللغوية :: قسم لغة الدلفي-
انتقل الى: