مجموعة دوال وأفكار بسييطة جدا للمبتدئين

[Dr.MOT]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

لاحظت فترة ركود في المنتدىآ فحاولت أن أضع هذا الموضوع كنوع من التنشيط لعل الله أن يفيده به الإسلام والمسلمين

أولا : // دآلة الأسس ( الرفع إلى قوة ) :
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 قيقا بايت !
* ملاحظة : لم أكتب كل هذه الدوال ! بل بعضها وجدتها وعدلت عليها !

أتمنى أن أكون قد أفدت ولو قليلا ,,
الإظافات مرحب بها
أي اقتراحات , نصائح , أخطاء , أفكار , انتقادات . . . مرحب بها
أي أسئلة مرحب بها
والسلام عليكم ورحمة الله وبركاته