کامپوننتهای کاربردی

[Mahmood_M]

شرمنده کامپوننت نداشتم ولی این یکی هم با جالبه :
طریقه بکار گیری از چند فانکشن در یک فانکشن :

type

   TFunctionParameter = function(const value : integer) : string;



...



function One(const value : integer) : string;

begin

   result := IntToStr(value) ;

end;



function Two(const value : integer) : string;

begin

   result := IntToStr(2 * value) ;

end;



function DynamicFunction(f : TFunctionParameter) : string;

begin

   result := f(2006) ;

end;



...



//مثال برای استفاده :



var

   s : string;

begin

   s := DynamicFunction(One) ;

   ShowMessage(s) ;



   s := DynamicFunction(Two) ;

   ShowMessage(s) ;

end; 

امیدوارم به دردتون بخوره ...