طریقه بکار گیری از چند فانکشن در یک فانکشن :
شرمنده کامپوننت نداشتم ولی این یکی هم با جالبه :
طریقه بکار گیری از چند فانکشن در یک فانکشن :
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;
امیدوارم به دردتون بخوره ... :لبخند: :لبخند: :لبخند: