F�rum Passando Par�metros de procedure #613204

06/11/2020

Tenho a seguinte procedure

procedure TfrmManutencaoClientes.AtualizaCamposCliente(var Atualiza: Boolean);
begin
  DataModuleGeral.qryUnidadeUsuario.Locate(''COD_UNIDADE'', DM.tbClientesCOD_UNIDADE.AsInteger,[]);
  if Atualiza then
  begin
  ...
  end;
 ...
end;

S� que n�o queria criara uma vari�vel para poder usa-la... queria poder usar assim

AtualizaCamposCliente(True);

AtualizaCamposCliente(False);

Teria como fazer isso ou eu terei que criar uma vari�vel setar como True ou False para poder usar na procedure.

var lVariavel : Boolean;
begin
   lVariavel := Treu;
   AtualizaCamposCliente(lVariavel);
end;

Eduardo Silva

Curtir t�pico

+ 0

Responder

Post mais votado

06/11/2020

retire a palavra var da frente do par�metro:

procedure TfrmManutencaoClientes.AtualizaCamposCliente(Atualiza: Boolean);
begin
  DataModuleGeral.qryUnidadeUsuario.Locate(''COD_UNIDADE'', DM.tbClientesCOD_UNIDADE.AsInteger,[]);
  if Atualiza then
  begin
  ...
  end;
 ...
end;

voc� pode at� deixar um valor padr�o:

procedure TfrmManutencaoClientes.AtualizaCamposCliente(Atualiza: Boolean = True);
begin
  DataModuleGeral.qryUnidadeUsuario.Locate(''COD_UNIDADE'', DM.tbClientesCOD_UNIDADE.AsInteger,[]);
  if Atualiza then
  begin
  ...
  end;
 ...
end;

sintaxe:

AtualizaCamposCliente(True); // atualiza
AtualizaCamposCliente(); // atualiza
AtualizaCamposCliente(False); // n�o atualiza

Emerson Nascimento

Responder

Gostei + 1