دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

ادخال الدالة داخل التسجيلة

اذهب الى الأسفل

ادخال الدالة داخل التسجيلة Empty ادخال الدالة داخل التسجيلة

مُساهمة  djelal 8/9/2019, 8:08 pm

الكود، نفس الكود السابق لكن قمت بادخال الدالة داخل التسجيلة
هو من ناحية التنفذية سليم، لكن من ناحية المنطقية لا ادري .
هو كود لتدريب فقط، لاتجعله قاعدة لك .
اخذ العلم من عدة مصادريصل الى الحقيقة العلمية المرجو الوصول اليها
قد يصيب احد وقد يخطئ اخر

الكود:

TPersonClass<RecVide: record> = class
Vide: RecVide;
end;
TPersonRec = record
Nom,Prenom: string[20];
Adress, Liue: string[30];
eDate: TDate;
// يجوز ادخال الدالة او الاجراءداخل التسجيلة
function PersFunc: string;
end;

var
Form1: TForm1;
Person: TPersonClass<TPersonRec>;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
caption := Person.Vide.PersFunc;
end;

{ TPersonRec }

function TPersonRec.PersFunc: string;
begin
Person:= TPersonClass<TPersonRec>.create;
with Person.Vide do
begin
try
Nom := 'Ali';
Prenom := 'Ahmed';
Adress := 'Alger vile';
Liue := 'Alger vile';
eDate := 1950/01/10;
finally
Result := Format('%s %s %s %s ',[Nom, Prenom, Adress, Liue])+
FormatDateTime('yyyy-mm-dd',eDate);
Person.Free;
end;
end;
end;

djelal
مبرمج مجتهد

عدد المساهمات : 157
تاريخ التسجيل : 29/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى