أسئلة متفرقة من مبتدئ

php4sa: تحياتي :D .

لن أتطرق لأسئلتك بالتفصيل وأكتفي بالمرور عليها مرور الكرام Ok ;) .

1-أظن أنك تقصد Var وليس Val. Val فلا أعلم عنها شيء و ربما لا توجد في ديلفي ككلمة محجوزة Reserved Words.

أما عن Var: فدورها في ديلفي هو التعريف بالمتغيرات, كتابتها النحوية هي

var identifierList : type;

كمثال:

var I: Integer;

var X, Y: Real;

var count: dword =$3f20;

.و يجب أن لا تكررها في نفس المكان(مجال الررؤيا) أكثر من مرة واحدة:

var

X, Y, Z: Double;

I, J, K: Integer;

Digit: 0..9;

Okay: Boolean;

2- رموز الترتيب و المقالرنة هي:

x=y متساويان

x>y أكبر قطعا

x<y أصغر قطعا

x<>y مختلفان

x<=y أصغر أو يساوي

x>=y أكبر او يساوي

3- المشروع يتكون من وحدة رئيسية, و وحدات مرفقة. مثلا يمكنك اعتبار Unit1 هي الوحدة الرئيسية , و تضيف إلى مشروعك مجموعة من الوحدات تضع فيها ما تريد: فورمات أخرى ( كال AboutBox, أو dialogs) أو كلاسات والإجرائيات...

يكفي أن تكتب إسم الوحد التي تريد استخدامها داخل وحدة أخرى في سلسلة الوحدات المستعملة:

uses
 classes, dialogs, forms...;
interface

implementation
// هنا تكتب هذا السطر
uses
 unit2, AboutBox1,...;

4- الأخ عروة سيكفيك, هناك مركب جميل يغنيك عن التبحر في الكود حاليا :) .

Arabic man

5- :rolleyes: .. عليك بالمركبات الخارجية

اخى الكريم ikossan

اعتزر منك ان كنت قد تخطيت حدودى فهناك دالة فى System يونيت تدعى val

الوظيفة تحول قيمة حرفية الى المقابل لها بالارقام تماما كدالةStrToInt

الشهيرة

والمثال التالى للتوضيح

var s : string;
    c,i : integer;

s:='1234';
Val(s,i,c);
//i=1234; //c=0

عكس الدالة Str والتى تساوى IntToStr

 var
  numberString : string;
  float        : Extended;
  errorPos     : Integer;
begin
  // Set up a valid floating point number string
  numberString := '12345.678';

  // Convert it into a value
  Val(numberString, float, errorPos);

  // Display the string and converted value
  if errorPos = 0
  then ShowMessageFmt('Val(%s) = %12.3f',[numberString,float]);

  // Val ignores the Decimal Separator - SysUtils converters don't
  //DecimalSeparator := '_';
  numberString := '12345_678';
  Val(numberString, float, errorPos);
  if errorPos = 0
  then ShowMessageFmt('Val(%s) = %12.3f',[numberString,float])
  else ShowMessageFmt('Val(%s) failed at position %d',
                      [numberString, errorPos]);
end;

1- ماذا تعني التعليمة Val

كما أوضح junstNic , تفيد هذه التعليمه في التحويل من سلسله نصيه إلى أرقام . وتكون الحاجه إليها مهمه عند التعامل بمستوى منخفض مع الملفات

كما أني أذكر برأي أخي IKossan أنه ربما كنت تقصد Var أو شيء آخر

2- ماذا تعني : <> أو ><

شرحت بالتفصيل فوق

(مثلا إذا أردنا إختبار شرط a لايساوي b . نكتب if a <>b)

3- من باب تنظيم الشيفرة أريد أن أضع الكلاسات والإجراءات في وحدة وكود التنفيذ في وحدة أخرى اتمنى الإجابة بالتفصيل

file > new >unit

ضع الشفره التي تريدها هنا .. وتذكر أن أي معلومات يجب أن تراها من خارج هذه الشفره يجب أن يكون لها تعريف في القسم العلوي (يسمى قسم Interface أو قسم التصريح وهو المخصص لكي تراه الوحدات الأخرى من الخارج) وينتهي هذا القسم عند الكلمه implementation التي تعني بدء قسم كتابه الشفره ونسميه قسم التنفيذ ..

إذن نعرف أسماء المتحولات والتوابع والإجراءات التي يجب رؤيتها من الخارج في القسم العلوي , ونكتب شفرتها في القسم السفلي (بعد تعريف رأس الإجراء في القسم العلوي إستخدم الأزرار Ctrl+Shift+c التي ستكمل الشفره تلقائيا ويبقى عليك كتابه أجزاء الكود)

بعد الإنتهاء من الوحدة وحفظها ,, (مبدأيا أنسخها إلى نفس مجلد البرنامج كل مره تريد إستخدامها)

نضيف إسمها إلى لائحه uses الموجودة في الأعلى وبعدها نستطيع الوصول إلى كل البيانات المعرفه في قسم التصريح الخاص بها

4- كيف أتحكم بجعل الأشياء تظهر من اليمين إلى اليسار

لكل عنصر خاصيه تسمى BiDiMode تراها في ضابط الكائنات مع الخصائص الأخرى كافة

مثلا ضع label (لافته) وعندما تكتب فيها "الإسم :" ستجد ان ترتيب النقتطين ":" غير صحيح لإنها من اليسار لليمين .. لإصلاح ذلك . أبحث في ضابط الكائنات عن الخاصيه BiDiMode (خامس خاصيه من الأعلى) وإضبطها إلى bdRightToLeft .. وستنحل المشكله ,, وكل العناصر الأخرى هكذا

ولتسهيل الموضوع وبدلا من القيام بذلك من أجل كل عنصر تستطيع ضبط هذه الخاصيه للفورم نفسه وكل العناصر الموجوده عليه ستأخذها إفتراضيا

5- كيف أغير مظهر الأزرار و الأشكال ...

بعض الأزرار مثل BitBtn و SpeedButton وغيرها مثل ToolBars تملك خاصيه تسمح لك بتحديد صورة لها (مؤلفه من عدة أجزاء جزء عادي جزء غير مفعل جزء عند الضغط)

وإذا كنت تستخدم xp عندها المكون XpMan الموجود في آخر الصفحه win32 (Delphi7 و Delphi2005) يعطيك نموذج أرار الxp المتألقه

أما ماعدا ذلك فأنت بحاجه لمكونات خارجيه خاصه بهذا الموضوع تسمى مكونات Skin مثل المكون الذي طرحه الأخوة هنا :

شككككككككككككككككككككككككككككككككككرا

جازاكم الله خير جميعا

والله لم أكن أتوقع هذه الردود

جزاكم الله وزادكم علما

الله يكتبها في ميزان حسناتكم

على العموم أحتاج ليوم كامل على بال ما أقرأ وأجرب وأقولكم وش حصل

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

عندي كمان 2 كيلو سؤال

1- بالنسبة لموضوع تنظيم الشيفرة باستخدام عدة وحدات في الوحدة الرئيسية يوجد متغيرات على سبيل المثال From1.Caption كيف أستطيع إستخدام المتغير في إجراءاتي التي في وحدة أخرى

2- إلى الأخ عروة كيف أثبت ما يسمي GLScene

السلام عليكم

بالنسبة للمتغيرات اخوي php4sa واستخدامها من وحدة اخرى فهذا ممكن

لكن يجب عليك تعريف المتغير في القسم العام للمتغيرات global variable

ومن ثم استخدم المتغير من اي وحدة اخرى .... طبعآ بعد ما تضيف الوحدة

التي فيها المتغير الى اليوزس في الوحدة الجديدة .

ما فهمت من أخوي 02/11/2004

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

لنفرض أن لدي الوحدتان UMain , UnitS

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

الوحدة UMain تحتوي على الخاصية From1.Caption وفيه تنفيذ للإجراءات المعرفة بالوحدة الأخرى

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

الوحدة UnitS تحتوي على تعريف للإجراءات الخاصة بي والتي تتحكم بالخاصية From1.Caption

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

في القائمة uses في UMain أضيف UnitS

وفي القائمة uses في UnitS أضيف UMain

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

هذا مثال لكيفية استعمال Uses في مشروع يتكون من ثلاث وحدات:

وحدة رئيسية Unit1, وحدة لAboutBox, وحدة خاصة لكلاس تقوم بكتابة التاريخ أو الوقت في Caption لل Form التي تريد.

uses clause.zip