الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اختير نفسك في الدلفي

رائج
بدأه mohfa في 29 يناير 2009 · 61 رد · 7,918 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#51

مالفرق بين كل هذه انواع ال Integer :

إن امكن بدون الرجوع الى دلفي :

Integer

Cardinal

Shortint

Smallint

Longint

Int64

Byte

Word

Longword

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#52

وفيك بركة اخي موح

إعجاب الإنسان بنفسه دليل على صغر عقله

-----------------------------------------------------------------

رأس الحكمة مخافة الله

#53

من أي ناحية أخي محمد

من ناحية القيمة أم ماذا

في بداية مشروع تسيير مخازن بسيط كنت قد سألت اين استطيع ان اجد شرح عن جميع المتغيرات والثوابت كي اتعلمها

ولكن يبدوا انه لاداعي للبحث ,على مايبدوا سأتعلمها هنا < في اختبر نفسك في ديلفي>

9780672308512_150x150.jpg

TIB.Talal Belal . Syria

#54

كلها اصناف لاعداد طبيعية

Integer 32 bits يقبل القيمة ما بين -2147483648 الي 2147483647

Cardinal 32 bits يقبل القيمة ما بين 0 الي 4294967295

Shortint 8 bits يقبل القيمة ما بين -128 الي 127

Smallint 16 bits يقبل القيمة ما بين - 32768 الي 32767

Longint 32 bits يقبل القيمة ما بين -2147483648 الي 2147483647

Int64 64 bits يقبل القيمة ما بين -9223372036854775808 الي 9223372036854775807

Byte 8 bits يقبل القيمة ما بين 0 الي 255

Word 8 bits يقبل القيمة ما بين 0 الي 65535

Longword 32 bits يقبل القيمة ما بين 0 الي 4294967295

اقتباس
إن امكن بدون الرجوع الى دلفي

تم الرجوع لديلفي لتاكد من بعض الارقام لم احفظها بعد :unsure: :unsure:

تم تعديل هذه المشاركة بواسطة maosalah في 31 يناير 2009 في 15:42

إعجاب الإنسان بنفسه دليل على صغر عقله

-----------------------------------------------------------------

رأس الحكمة مخافة الله

#55
اقتباس
تم الرجوع لديلفي لتاكد من بعض الارقام لم احفظها بعد
:hmm:

اخي maosalah ناقص 1 نقطة من الخمسة يعني النتيجة 4/5

السؤال 6 :

سؤال مفيد لمن يريد .

ماهي نتيجة هذه الدوال بالترتيب من 1 الى 3

{*** 1 *** }

 

 

[color= #993333; font-weight: bold;]FUNCTION Get_K[color= #66cc66;](const Intiator : Integer; A[color= #66cc66;], B[color= #66cc66;], C : Byte[color= #66cc66;]) : Byte;

begin

A :[color= #66cc66;]= a mod [color= #cc66cc;]25;

B :[color= #66cc66;]= b mod [color= #cc66cc;]3; [color= #993333; font-weight: bold;]IF a mod [color= #cc66cc;]2 [color= #66cc66;]= [color= #cc66cc;]0 then

result :[color= #66cc66;]= [color= #66cc66;]([color= #66cc66;](Intiator shr A[color= #66cc66;]) [color= #993333; font-weight: bold;]AND $000000FF[color= #66cc66;]) [color= #993333; font-weight: bold;]XOR [color= #66cc66;]([color= #66cc66;](Intiator shr B[color= #66cc66;]) [color= #993333; font-weight: bold;]OR C[color= #66cc66;])

else

result :[color= #66cc66;]= [color= #66cc66;]([color= #66cc66;](Intiator shr B[color= #66cc66;]) [color= #993333; font-weight: bold;]AND $000000FF[color= #66cc66;]) [color= #993333; font-weight: bold;]XOR [color= #66cc66;]([color= #66cc66;](Intiator shr B[color= #66cc66;]) [color= #993333; font-weight: bold;]AND C[color= #66cc66;]);

end;

{*** 2 ***}

 

[color= #993333; font-weight: bold;]FUNCTION Make_K[color= #66cc66;](const Intiator : Integer[color= #66cc66;]) : String;

var

K_Bytes : array[color= #66cc66;][[color= #cc66cc;]0[color= #66cc66;]..[color= #cc66cc;]3[color= #66cc66;]] of Byte;

i : Integer;

begin

K_Bytes[color= #66cc66;][[color= #cc66cc;]1[color= #66cc66;]] :[color= #66cc66;]= Get_K[color= #66cc66;](Intiator[color= #66cc66;], [color= #cc66cc;]10[color= #66cc66;], [color= #cc66cc;]0[color= #66cc66;], [color= #cc66cc;]56[color= #66cc66;]);

K_Bytes[color= #66cc66;][[color= #cc66cc;]2[color= #66cc66;]] :[color= #66cc66;]= Get_K[color= #66cc66;](Intiator[color= #66cc66;], [color= #cc66cc;]1[color= #66cc66;], [color= #cc66cc;]2[color= #66cc66;], [color= #cc66cc;]91[color= #66cc66;]);

K_Bytes[color= #66cc66;][[color= #cc66cc;]3[color= #66cc66;]] :[color= #66cc66;]= Get_K[color= #66cc66;](Intiator[color= #66cc66;], [color= #cc66cc;]7[color= #66cc66;], [color= #cc66cc;]1[color= #66cc66;], [color= #cc66cc;]100[color= #66cc66;]);

result :[color= #66cc66;]= IntToHex[color= #66cc66;](Intiator[color= #66cc66;], [color= #cc66cc;]8[color= #66cc66;]);

[color= #993333; font-weight: bold;]FOR i :[color= #66cc66;]= [color= #cc66cc;]0 [color= #993333; font-weight: bold;]TO [color= #cc66cc;]3 do

result :[color= #66cc66;]= result [color= #66cc66;]+ IntToHex[color= #66cc66;](K_Bytes[color= #66cc66;][i[color= #66cc66;]][color= #66cc66;], [color= #cc66cc;]2[color= #66cc66;]);

i :[color= #66cc66;]= Length[color= #66cc66;](result[color= #66cc66;]) [color= #66cc66;]- [color= #cc66cc;]3;

while [color= #66cc66;](i [color= #66cc66;]> [color= #cc66cc;]1[color= #66cc66;]) do

begin

[color= #993333; font-weight: bold;]INSERT[color= #66cc66;]([color= #ff0000;]'-'[color= #66cc66;], result[color= #66cc66;], i[color= #66cc66;]);

Dec[color= #66cc66;](i[color= #66cc66;], [color= #cc66cc;]4[color= #66cc66;]);

end;

end;

{*** 3 ***}

 

[color= #993333; font-weight: bold;]FUNCTION Export_To_Val_K[color= #66cc66;]([color= #66cc66;]):String;

begin

Result:[color= #66cc66;]=Make_K[color= #66cc66;]([color= #cc66cc;]123456789[color= #66cc66;]);

end;

تم تعديل هذه المشاركة بواسطة mohfa في 31 يناير 2009 في 16:37

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#56
اقتباس
اخي maosalah ناقص 1 نقطة من الخمسة يعني النتيجة 4/5

اعدك ان اجتهد في المرة القادمة واراجع دروسي جيدا

اقتباس
سؤال مفيد لمن يريد .

والله سؤال مفيد جدا

شكرا اخي موح لقد كنت في حاجة لمثل هذا المثال لفهم بعض الامور الخوارزمية جيدة ممكن المزيد :evil: :evil: :evil:

نتائج الدوال من الشكل ادخال رقم Integer والحصول علي النتيجة من الشكل نص

FFFFF-FFFFF-FFFFF

إعجاب الإنسان بنفسه دليل على صغر عقله

-----------------------------------------------------------------

رأس الحكمة مخافة الله

#57

نعم اخي maosalah هذا المثال يساعد في توليد ال Serial Number لاي برنامج وإن اردتم ان ارفع مثال على ذلك فلا إشكالية عندي .

تم تعديل هذه المشاركة بواسطة mohfa في 31 يناير 2009 في 17:47

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#58
اقتباس
نعم اخي maosalah هذا المثال يساعد في توليد ال Serial Number لاي برنامج وإن اردتم ان ارفع مثال على ذلك فلا إشكالية عندي .

ادا امكن رفع مثال للمنفعة العامة :thumb_up: :thumb_up: :rose:

------------------------------------------

مالذي سيحدث هنا ولماذا ؟

  1.  
  2.  
  3. Type 
  4. TCustomer = Record
  5.     firstName : string;
  6.     lastName  : string;
  7.   end;
  8.  
  9. var
  10.   Costomer : TCustomer;
  11.  
  12. Begin
  13.   with Costomer do
  14.   begin
  15.     firstName := 'Mao';
  16.     lastName  := 'Salah';
  17.   end;
  18.  
  20.  
  21.  
  22.  


      
تم تعديل هذه المشاركة بواسطة maosalah في 31 يناير 2009 في 21:31

      

      
 
 إعجاب الإنسان بنفسه دليل على صغر عقله 
-----------------------------------------------------------------
رأس الحكمة مخافة الله 

    

  

    
    

      
#59
        
        

      
إظافة على ماسئلت ياخي صالح :
هل تعلم مالفرق بين هذا الكود وبين الكود الذي كتبته انت .
لمعرفة الفرق , قم بحفظ Costomer الى ملف نصي وشاهد كيف تحفظ السجلات في الملف النصي وحجم الملف النصي .
تحياتي 
Type 

TCustomer [color= #66cc66;]= Record

    firstName : string[color= #66cc66;][[color= #cc66cc;]3[color= #66cc66;]];[color= #66cc66;]//<<<<[color= #808080; font-style: italic;]--- انظر هنا

    lastName  : string[color= #66cc66;][[color= #cc66cc;]5[color= #66cc66;]]; [color= #66cc66;]// [color= #66cc66;]<<<<[color= #808080; font-style: italic;]--- انظر هنا

  end;

 

var

  Costomer : TCustomer;

 

Begin

  [color= #993333; font-weight: bold;]WITH Costomer do

  begin

    firstName :[color= #66cc66;]= [color= #ff0000;]'Mao';

    lastName  :[color= #66cc66;]= [color= #ff0000;]'Salah';

  end;

 

End;

      
تم تعديل هذه المشاركة بواسطة mohfa في 1 فبراير 2009 في 06:28

      

      
عزيزي :
لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .
فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم 
*****
2_header.png

    

  

    
    

      
#60
        
        

      
اقتباس
قم بحفظ Costomer الى ملف نصي وشاهد كيف تحفظ السجلات في الملف النصي وحجم الملف النصي
يعتبر من الاخطاء الغير موضحة في ديلفي 
 
firstName : string;   
 lastName  : string;
حيث تعتبر LongString ادا لم يتم التحديد وهدا لا يمكن التعامل معه في الملفات من الشكل 
Customer  : File Of TCustomer ;
لتفادي الخطأ يجب تحديد المتغيرات ShortString 
	firstName : string[3];//<<<<--- انظر هنا 
   lastName  : string[5]; // <<<<--- انظر هنا

      
      

      
 
 إعجاب الإنسان بنفسه دليل على صغر عقله 
-----------------------------------------------------------------
رأس الحكمة مخافة الله 

    

  

    
    

      
#61
        
        

      
:clapping:  :clapping:  :clapping:  :clapping:  :thumb_up:

      
      

      
عزيزي :
لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .
فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم 
*****
2_header.png

    

  

    
    

      
#62
        
        

      
  
  {$I-}		 <-------   ماذا تعمل 
  MkDir('c:\DELPHI');
  {$I+}		<-------   ماذا تعمل 
  if IOResult <> 0 then
	MessageDlg('Cannot Create Directory',
	  mtWarning, [mbOK], 0)
  else
	MessageDlg('Directory Created', mtInformation, [mbOK], 0);

      
      

      
 
 إعجاب الإنسان بنفسه دليل على صغر عقله 
-----------------------------------------------------------------
رأس الحكمة مخافة الله 

    

  

    
    
    
 مواضيع مشابهة