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

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

ادخال الدالة داخل التسجيلة 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
مبرمج

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

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

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


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