Função de argumentos infinitos para Delphi e Lazarus

Quando precisamos criar uma função que deverá tratar vários tipos de argumentos geralmente criamos funções que aceitam como parâmetros Arrays dinâmicos, ou simplesmente criamos várias funções sobrecarregadas.

Mas e quando a função deve receber argumentos de tipos diferentes? Como a função writeln do Pascal/Delphi ou a printff do C ?


O Array of Const


Você pode declarar uma função como recebendo um array of const. Ela aceitará qualquer tipo de argumento, entre [], e você poderá inclusive passar argumentos de tipos diferentes. Você pode varrer a lista de argumentos e verificar de que tipo eles são, para tomar providências diferentes dependendo do tipo.

Você  pode passar também objetos e usar a RTTI  para identifica-los. Considere o seguinte código:

function FormataMensagem(const args: array of const):string;
var
   i: integer;
begin
     for i := low(args) to high(args) do
     begin
         case args[i].VType of
              vtAnsiString: Result := Result + ' ' +   AnsiString(args[i].VAnsiString);
              vtInteger: Result := Result + ' ' +  IntToStr(args[i].VInteger);
              {continua...}
         end;
     end;
end;   

E você pode testar assim:

ShowMessage(FormataMensagem(['Post Número', 1, 'No mês', 2, 'de', 2010]));

Eu simplesmente passo 3 strings e 3 inteiros, porque trato atualmente só esse tipo de dado, mas você pode incrementar esse método para trabalhar com qualquer tipo, e até obter informações do tipo.

Para terminar, o link abaixo explica  a diferença entre Open Array, Dynamic Array e o Array of Const, também chamado de TVarRec.

http://rvelthuis.de/articles/articles-openarr.html


Até a próxima!


http://vitorrubio.blogspot.com/