البرمجة الغرضية التوجه في دلفي

البرمجة الغرضية التوجه في دلفي
عروة عيسى
وهذا مثال على تعريف واجهة مأخوذ من دلفي:‏
type
IMalloc = interface(IInterface)
['{00000002-0000-0000-C000-000000000046}']
function Alloc(Size: Integer): Pointer; stdcall;
function Realloc(P: Pointer; Size: Integer): Pointer; stdcall;
procedure Free(P: Pointer); stdcall;
function GetSize(P: Pointer): Integer; stdcall;
function DidAlloc(P: Pointer): Integer; stdcall;
procedure HeapMinimize; stdcall;
end;
وبعدما تقوم بتعريف الواجهة تستطيع تعريف صنف من أجل إستخدامها بواستطة .
type
TAirplane = class (TInterfacedObject, ICanFly)
function Fly: string;
end;
مثلا :
الآن أصبحنا جاهزين لإستخدام غرض من هذا الصنف الذي يمثل الواجهة ،
مع صنف من الواجهة وليس مع الواجهة مباشرة
طريقة الإستخدام هي نفسها لإننا نتعامل
var
Flyer1: ICanFly;
begin
Flyer1 := TAirplane.Create;
Flyer1.Fly;
end;
:
٤٤