هذه طريقة جديدة في "دلفي من Embarcadero"

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

هذه طريقة جديدة في "دلفي من Embarcadero" Empty هذه طريقة جديدة في "دلفي من Embarcadero"

مُساهمة  djelal في 8/9/2019, 8:11 pm

هذه طريقة جديدة في "دلفي من Embarcadero"

او طريقة في التصريح ويتم بنوعين هما record و class
حسب فهمي
مثلا:

TPersonClass<RecVide: record> = class
TPersonClass<RecVide: class> = class
مثال:
----

الكود:

type
TPersonClass<RecVide: record> = class
Vide: RecVide;
end;
TPersonRec = record
Nom,Prenom: string[20];
Adress, Liue: string[30];
eDate: TDate;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function PersFunc: string;
var
Person: TPersonClass<TPersonRec>;
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;

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

djelal
مبرمج

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

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

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


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