طريقتان مغنيتان عن إضافة مكوّنات جديدة

[SMP3]

كود :

بالتوفيق ومن كان عنده إضافة علم فلا يحرمنا منها .

السلام عليكم

كود :

ولعل الطريقة هذه فقط في delphi2010

بل دلفي 2007

class helper : لقد حل العديد من مشاكل ال OOP , لدي مثال في ال VCL Style Extractor
ألق نظرة على الوحدة SMPStyle

كود :

http://www.delphi4arab.net/forum/showthread.php?tid=7969

كما هناك ال Record Helper

PHP كود :

type intHelper =record helper for integer
public
Function ToString():String;
end;

function intHelper.ToString: String;
begin
result:=IntToStr(Self);

end; 


الآن يمكننا الكتابة بالشكل التالي :

PHP كود :

var MyInt:integer ;
begin
MyInt:=2013;
Caption:=MyInt.ToString ;
end; 


و السلام عليكم