19-07-2009, 10:37 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لاحظت فترة ركود في المنتدىآ فحاولت أن أضع هذا الموضوع كنوع من التنشيط لعل الله أن يفيده به الإسلام والمسلمين
أولا : // دآلة الأسس ( الرفع إلى قوة ) :
UpPower Function
وقد كتبت مثال صغير عليها :
![[صورة: 1.png]](http://www.drmot.webs.com/Delphi/1.png)
يمكنكم تحميل المثال من المرفقات
*ملاحظة : الدالة موجودة في الدلفي ظمن الوحدة math باسم Power
ولكن كمحاولة للتعلم والمتعة قمنا بكتابة هذه بدلاً عنها
ثانيا : // دالة التحويل من نص إلى ست عشري (String To Hex ) :
وهذا مثال عليها :
![[صورة: 2.png]](http://www.drmot.webs.com/Delphi/2.png)
يمكنك تحميل المثال من المرفقات
ثالثا : // دالة جلب حالة الإنترنت ( Get Net State ) :
مثال بسيط عليها :
![[صورة: 3.png]](http://www.drmot.webs.com/Delphi/3.png)
من المرفقات
رابعا : // دالة إستخراج اسم المعالج ( Get Prosser Name ) :
مثال بسيط :
![[صورة: 4.png]](http://www.drmot.webs.com/Delphi/4.png)
من المرفقات
خامسا : // دالة إحظار حجم الملف ( Get size of file ) :
مثال بسيط :
![[صورة: 5.png]](http://drmot.webs.com/Delphi/5.png)
من المرفقات
*ملاحظة : هذه الدالة لا تعمل مع الملفات أكبر من 2 قيقا بايت !
* ملاحظة : لم أكتب كل هذه الدوال ! بل بعضها وجدتها وعدلت عليها !
أتمنى أن أكون قد أفدت ولو قليلا ,,
الإظافات مرحب بها
أي اقتراحات , نصائح , أخطاء , أفكار , انتقادات . . . مرحب بها
أي أسئلة مرحب بها
والسلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
لاحظت فترة ركود في المنتدىآ فحاولت أن أضع هذا الموضوع كنوع من التنشيط لعل الله أن يفيده به الإسلام والمسلمين
أولا : // دآلة الأسس ( الرفع إلى قوة ) :
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;
وقد كتبت مثال صغير عليها :
يمكنكم تحميل المثال من المرفقات
*ملاحظة : الدالة موجودة في الدلفي ظمن الوحدة 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;
وهذا مثال عليها :
يمكنك تحميل المثال من المرفقات
ثالثا : // دالة جلب حالة الإنترنت ( Get Net State ) :
PHP كود :
uses : WinInet
PHP كود :
begin
If ( InternetGetConnectedState(nil,0) ) = True Then
ShowMessage('Computer Online')
else
ShowMessage('Computer Offline');
end;
من المرفقات
رابعا : // دالة إستخراج اسم المعالج ( 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;
مثال بسيط :
من المرفقات
خامسا : // دالة إحظار حجم الملف ( 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
مثال بسيط :
من المرفقات
*ملاحظة : هذه الدالة لا تعمل مع الملفات أكبر من 2 قيقا بايت !
* ملاحظة : لم أكتب كل هذه الدوال ! بل بعضها وجدتها وعدلت عليها !
أتمنى أن أكون قد أفدت ولو قليلا ,,
الإظافات مرحب بها
أي اقتراحات , نصائح , أخطاء , أفكار , انتقادات . . . مرحب بها
أي أسئلة مرحب بها
والسلام عليكم ورحمة الله وبركاته
