PHSYS - Wiki

Exemplos

var
  Filtro: String;
begin
  // Monta a query condicional
  Filtro := 'SELECT * FROM CLIENTES ' +
            'WHERE 1=1 ' +
            'AND (@MODOEDICAO = S OR ATIVO = S) ' + // Se não estiver editando, só clientes ativos
            'AND (@DEVSIS = S OR VISIVEL = S)';      // Se não for devsis, só visíveis
  // Substitui as variáveis mágicas com a função
  Filtro := ProcessarTokens(Filtro);
  // Executa a consulta final
  DataSet.Close;
  DataSet.SQL.Text := Filtro;
  DataSet.Open;
end;