Como usar NULL para um par�metro tipo quot;varquot;

Question

Bom amigos, tenho uma fun��o gen�rica para chamada das rotinas do sistema, na qual fa�o as valida��es de acesso e abertura de arquivos.Preciso usar na fun��o um par�metro tipo �var�.[code:1:797b75a68e...

Marco Salles · Answer

amigo aldus , porque voce n�o usa a directiva overload;...

Siam · Answer

E pq vc precisa passar como [b:f03d8a299e]var[/b:f03d8a299e] um objeto ?...

Tnaires · Answer

Ol�Como nosso colega [b:52574289f8]siam[/b:52574289f8] falou, voc� n�o precisa passar uma refer�ncia a um objeto usando [b:52574289f8]var[/b:52574289f8]. Basta fazer:[code:1:52574289f8]procedure ChamaForm(nNivel: integer; FormChamou: TForm );[/code:1:52574289f8]Para escrever a fun��o de forma que nem sempre seja necess�rio passar o segundo par�metro, basta fazer:[code:1:52574289f8]procedure ChamaForm(nNivel: integer; FormChamou: TForm = nil );[/code:1:52574289f8]Abra�os...

Aldus · Answer

Bom dia amigos, coloquei como TForm = nil e funcionou como queria.

O objetivo dessa funcao � fazer com que determinadas partes do sistema quando estiver em um cadastro e chamar um outro, fazer com o que chamou �j� que vou passar�quem chamou fique transparente:

A funcao ficara mais ou menos assim:

procedure tform1.chamaform(nform: integer; formchamou: TForm = nil);
begin
   // Primeiro faco a validacao
   if Pode acessar o form chamado then
      begin
         if FormChamou <> nil then
            begin
               formchamou.AlphaBlend := true;
               formchamou.AlphaBlendvalue := 120;
            end;
         if nForm = 1 then
            form2.ShowModal
         else if nform = 2 then
            form3.ShowModal ;
      if FormChamou <> nil then
         begin
            formchamou.AlphaBlendvalue := 255;
            formchamou.AlphaBlend := false;
         end;
      end;
end;

Obrigado a todos e bom fim de semana

Mario

Marco Salles · Answer

[code:1:b8d81f86a0]procedure tform1.chamaform(nform: integer; formchamou: TForm = nil); begin // Primeiro faco a validacao if Pode acessar o form chamado then begin if FormChamou <> nil then begin formchamou.AlphaBlend := true; formchamou.AlphaBlendvalue := 120; end; if nForm = 1 then form2.ShowModal else if nform = 2 then form3.ShowModal ; if FormChamou <> nil then begin formchamou.AlphaBlendvalue := 255; formchamou.AlphaBlend := false; end; end; end;[/code:1:b8d81f86a0]N�o teria jeito de melhorar isto n�o ???? Pelo que to entendendo o valornform ja define o Formularoi ique sera chamado.. Alem disso o fato de voce ter duplicidade de codigos , por exemplo if FormChamou <> nil then aparece duas vezessugere refactoring... Alem do mais voce esta dentro de uma procedure do privativa do form1 tratando explicitamente com objetos (Form2 e Form3)... Veja se voce fizer disso uma pr�tica , imagine que caso voce altere o nome dos Form do projeto , em consequencia voce ira ter que alterar o nome desse formularios em cada procedure.. Imagine ainda que essas proceudres s�o muitas ... Enfim , para mim , n�o constitui boa parte de POO , em termos de visuabilidade , reuso, encapsulamento etc.... � so uma opini�o...

Aldus · Answer

Bom dia Marco, obrigado pela preocupa��o, mas essa rotina � respons�vel pela abertura e encerramento de todos os meus forms, n�o tenho cita��o de nomes dos forms no projeto, apenas nessa fun��o, pois nela coloco minhas valida��es, abertura e fechamento de arquivos, portanto, qualquer mudan�a de nessas fun��es, altere somente aqui.

Obrigado pela aten��o

Mario

F�rum Como usar NULL para um par�metro tipo quot;varquot; #332203