+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : مجموعة دوال وأفكار بسييطة جدا للمبتدئين (/showthread.php?tid=1069)
الصفحات:
1
2
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - Dr.MOT - 19-07-2009
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لاحظت فترة ركود في المنتدىآ فحاولت أن أضع هذا الموضوع كنوع من التنشيط لعل الله أن يفيده به الإسلام والمسلمين
أولا : // دآلة الأسس ( الرفع إلى قوة ) :
UpPower Function
PHP كود :
Function UpPower(Num ,Numup : integer ): integer ;
PHP كود :
var i : integer ;
begin
Result := 1 ;
for i := 0 To NumUp-1 do begin
Result:= Result*Num ;
end;
Application.MainForm.Caption := 'Ans = ' + IntToStr(Result);
end;
وقد كتبت مثال صغير عليها :
![[صورة: 1.png]](http://www.drmot.webs.com/Delphi/1.png)
يمكنكم تحميل المثال من المرفقات
*ملاحظة : الدالة موجودة في الدلفي ظمن الوحدة math باسم Power
ولكن كمحاولة للتعلم والمتعة قمنا بكتابة هذه بدلاً عنها
ثانيا : // دالة التحويل من نص إلى ست عشري (String To Hex ) :
PHP كود :
Function StrToHex(Str:String) : String;
PHP كود :
var i,b:integer; m :String;
begin
for i := 1 To Length(Str) do
begin
b := (Ord (Str[i]) ); //Ord >> String To ASCCI
m := IntToHex(b,2) ;
Result := Result + m;
end;
end;
وهذا مثال عليها :
![[صورة: 2.png]](http://www.drmot.webs.com/Delphi/2.png)
يمكنك تحميل المثال من المرفقات
ثالثا : // دالة جلب حالة الإنترنت ( Get Net State ) :
PHP كود :
uses : WinInet
PHP كود :
begin
If ( InternetGetConnectedState(nil,0) ) = True Then
ShowMessage('Computer Online')
else
ShowMessage('Computer Offline');
end;
![[صورة: 3.png]](http://www.drmot.webs.com/Delphi/3.png)
من المرفقات
رابعا : // دالة إستخراج اسم المعالج ( Get Prosser Name ) :
PHP كود :
function ProcName : String ;
var Reg : TRegistry ;
begin
Reg := TRegistry.Create ;
Try
With Reg Do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Hardware\Description\system\CentralProcessor\0',False);
end;
ShowMessage(Reg.ReadString('ProcessorNameString'));
Finally
Reg.Free;
end;
end;
مثال بسيط :
![[صورة: 4.png]](http://www.drmot.webs.com/Delphi/4.png)
من المرفقات
خامسا : // دالة إحظار حجم الملف ( Get size of file ) :
PHP كود :
Function SizeOfFile(FilePath : String ) : Integer ;
PHP كود :
uses Registry;
var F : File of Byte ;
begin
AssignFile(F,FilePath);
Try
Reset(F);
Result := System.FileSize(F);
Result := Result div 1024 ;
Finally
CloseFile(F);
end;
end;
// This Function doesn't work
// with files bigger than 2GB
مثال بسيط :
![[صورة: 5.png]](http://drmot.webs.com/Delphi/5.png)
من المرفقات
*ملاحظة : هذه الدالة لا تعمل مع الملفات أكبر من 2 قيقا بايت !
* ملاحظة : لم أكتب كل هذه الدوال ! بل بعضها وجدتها وعدلت عليها !
أتمنى أن أكون قد أفدت ولو قليلا ,,
الإظافات مرحب بها
أي اقتراحات , نصائح , أخطاء , أفكار , انتقادات . . . مرحب بها
أي أسئلة مرحب بها
والسلام عليكم ورحمة الله وبركاته
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - nabilkeb - 20-07-2009
مشاركة جميلة أخي :
أردت فقط أن ألفت انتباهك أن أي مشاركة سوف تنفع بها غيرك ، فمستويات الناس تختلف ، هذا أولا ، ثانيا ، حتى و إن أخطأ الواحد منــا في مشاركته فإنه سينفع غيره ، على الأقل سوف نكلف القارئ بايجاد الخطأ و الرد ، و يدخل هذا أيضا في التعلم و رفع المستوى .....
مشكووووور
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - AL-MOB4RM3G - 22-07-2009
شكرا لك اخي دوكتر موت,, هكذا نريدك
اخي الكريم,, UpPower Function ماذا تفعل,, حآولت فهمها ولكن لم افلح,,
شكرا لك
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - nabilkeb - 22-07-2009
AL-MOB4RM3G كتب :, UpPower Function ماذا تفعل,
دالة الأس أو الرفع إلى قوة معينة : 2 أس 3 يعني : 2x2x2 يعني 2 ضرب 2 ، 3 مرات . أو نقول 2 قوة3 هي نفسها ، استغل المثال و املأ الخانات بأعداد معينة و انظر ماذا يحصل.
بالتوفيق
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - AL-MOB4RM3G - 24-07-2009
nabilkeb كتب :دالة الأس أو الرفع إلى قوة معينة
نعم, شكرا لك اخي,, قهمت الآن ماذا تعني,,
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - Dr.MOT - 01-08-2009
السلام عليكم
عذرا اخي المبرمج ببتأخر في الرد ,,
افادك اخي نبيل ,,
ولا تنسى أنه يوجد دآلة للأسس ( الرفع إلى قوة ) في الدلفي ضمن الوحدة math باسم ( Power ) - كما ذكر في الموضوع
شكرا
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - علي ادرار - 19-07-2012
استمتع بما اقرا من ردود واستوعب الدروس بشكل جيد والحمد لله
ولكن لم اصل الى مستوى المشاركة ولو البسيطة وبالله التوفيق.
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - format82 - 19-07-2012
جزاك الله خيرا
رمضان كريم تصومو وتفطرو علي خير
اعطيت لنا مثال دالة التحويل من نص إلى ست عشري
وكيف يكون العكس (التحويل من ست عشر الي نص )
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - bassem_43 - 25-09-2013
بارك الله فيك دوال رائعة ومفيدة
شكرا لك
مجموعة دوال وأفكار بسييطة جدا للمبتدئين - sparda - 28-12-2013
لم أجد math او Power
استخدم دلفي 7