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

(accesseurs) الميتود Get Set في الدلفي نت

بدأه زكيري عبد العالي في 14 مايو 2008 · 6 رد · 2,526 مشاهدة · في Delphi .NET/PRISM
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف اصنع accesseurs GET SET بالدلفي

في c#

public user sUserInfo
	{
		get { return (user)Session["UserInfo"]; }
		set { Session["UserInfo"] = value; }
	}

و في الدفي حليا اقوم بكتابها يدويا

Function  Get_sUserInfo : Tuser;
begin
		result:=  user(HttpContext.Current.Session['UserInfo']);
end;
procedure Set_sUserInfo(_user:Tuser);
begin
	  HttpContext.Current.Session['UserInfo'] :=_user;
end;

هل rad studio delphi 2007 يفعل مثل vs كما في الصورة

شكرا

post-1034-1210766768_thumb.jpg

#2

في دلفي هناك ميزة قديمة تسمى Class Completion

عرف في دلفي خاصية Property

property UserInfo:TUser;

ثم قم بالضغط على Ctrl+alt+c

سوف يتم توليد جزء ال set, get بشكل تلقائي وما عليك الا كتابة الكود بدخلهم

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#3

بارك الله فيك استاذ

Ctrl+alt+c :hmm:

لا تعمل لكن

CTRL + SHIFT + C

تعمل

اقتباس
Class Completion

This is a "subset" of the code completion feature, designed to automate the definition of (new) classes by generating skeleton code for the class members. This is how it works:

You write a new property declaration inside a public section of the interface section of your class definition (Form1).

...
 public
  property MyProp : integer read fProp write SetProp;  CTRL + SHIFT + C
...

اقتباس
When complete hit Ctrl + Shift + C, Delphi automatically adds private read and write specifiers to the declarations, then adds skeleton code in the implementation section. This is what gets added by Delphi:

..
 private
  fProp: integer;
  procedure SetProp(const Value: integer)
...
 //implementation
...
procedure TForm1.SetProp(const Value: integer);
begin
  fProp := Value;
end;
#4

كلامك صحيح اخي زكيري

انا متعود ان اضغط على CTRL + SHIFT + C، بشكل تلقائي بدون تذكر امكان الازرار :)

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#5

GET SET delphi

post-1034-1216374206_thumb.jpg

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 18 يوليو 2008 في 12:44

#6

لكن كيف في البريسم

:S

#7

و الله انا بحاجة البها و لم اجد البديل الا كتابة الكود يدويا .

فهل من يساعدني في البحث عنها .

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