Passando Parâmetros de procedure

Delphi

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);
ou 
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

Eduardo Silva

Curtidas 0

Melhor post

Emerson Nascimento

Emerson Nascimento

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


GOSTEI 1
POSTAR