ادخال الدالة داخل التسجيلة
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
ادخال الدالة داخل التسجيلة
الكود، نفس الكود السابق لكن قمت بادخال الدالة داخل التسجيلة
هو من ناحية التنفذية سليم، لكن من ناحية المنطقية لا ادري .
هو كود لتدريب فقط، لاتجعله قاعدة لك .
اخذ العلم من عدة مصادريصل الى الحقيقة العلمية المرجو الوصول اليها
قد يصيب احد وقد يخطئ اخر
هو من ناحية التنفذية سليم، لكن من ناحية المنطقية لا ادري .
هو كود لتدريب فقط، لاتجعله قاعدة لك .
اخذ العلم من عدة مصادريصل الى الحقيقة العلمية المرجو الوصول اليها
قد يصيب احد وقد يخطئ اخر
- الكود:
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
مواضيع مماثلة
» انشاء عدة Forms داخل Form1 وانشاء عدة TabShet داخل PageControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى