dê seu feedback
post favorito
Delphi: Como esperar uma função como parâmetro de outra função
Delphi: Como esperar uma função como parâmetro de outra função
Como esperar uma função como parâmetro de outra função:
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;
...
//Examplo de uso:
var
s : string;
begin
s := DynamicFunction(One) ;
ShowMessage(s) ; //mostra "2006"
s := DynamicFunction(Two) ;
ShowMessage(s) ; // mostra "4012"
end;
0 COMENTÁRIO
[Este post ainda não foi associado a uma sequência]
Você está em:
canal Delphi
Publicidade
Estudo comparativo entre banco de dados IBM Informix e Microsoft SQL
1
0
Conheça os planos de créditos DevMedia e visualize esse post agora mesmo!