مراجع الصنف

مغلق

بدأه Whale في 7 يونيو 2005 · 5 رد · 535 مشاهدة · في لغة Delphi

مشاركة: واتساب X فيسبوك تيليجرام

#17 يونيو 2005 في 14:00 صاحب الموضوع

السلام عليكم

قرأت عن مراجع الصنف و لكن لم افهم لماذا نحتاجها. و ما علاقتها بتحويل الاصناف و تعدد الاشكال.

متى يصبح استخدام مراجع الصنف افضل الحلول.

هل تعمل احدكم مع Class references من قبل.

ومشكورين مقدما

من مواضيعي

============

القواعد التي يتفق عليها فريق العمل - الاكسس

موضوع مهم في برمجة قواعد البيانات - Transaction Processing

#214 يونيو 2005 في 15:14

من مواضيعي

============

القواعد التي يتفق عليها فريق العمل - الاكسس

موضوع مهم في برمجة قواعد البيانات - Transaction Processing

#314 يونيو 2005 في 22:03

اخي انا قرات عن الClass references وفهمت منها ما يلي

في حالة ارسالك للتابع او الاجراء بارامتر من النوع Class بواسطة اسمه يعني مش بمؤشر فانت استخدمت الClass references

مثال

أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر

وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري

كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو

أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري

عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري

فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري

منتديات الرياضيات العربية

#414 يونيو 2005 في 22:04

اقتباس
type TCollectionItemClass = class of TCollectionItem;
...
constructor Create(ItemClass: TCollectionItemClass);

أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر

وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري

كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو

أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري

عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري

فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري

منتديات الرياضيات العربية

#514 يونيو 2005 في 22:11

اسف للتكرار غير المقصود

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

مثال موجود في الهلب

type TControlClass = class of TControl;
function CreateControl(ControlClass: TControlClass;
  const ControlName: string; X, Y, W, H: Integer): TControl;
begin
  Result := ControlClass.Create(MainForm);
  with Result do
  begin
    Parent := MainForm;
    Name := ControlName;
    SetBounds(X, Y, W, H);
    Visible := True;
  end;
end;

ارجو ان اكون موفقا في الاجابة

أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر

وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري

كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو

أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري

عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري

فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري

منتديات الرياضيات العربية