(Resolvido) Como introduzir um sinal de operacao comutável dentro de um select?

[Lazaruz 0]

Olá a todos,

    Eu utiliava Delphi 5  e criei funções que tinham comutação de tuplas, sinais de operação e outro como strings etc. dentro de uma string de SELECT

    que operava o pseudo SQL de Paradox.  ex:

 

      If   condição = ativo    

        varSinal := '+'

              else:= '-'

                        SELECT      a      ' + varSinal +   'b     AS   RESULTADO         FROM TABELA.

    não reparem a sintaxe, mas é só ilustrativa.

             Agora utilizo nas Zquery em  Lazarus/pascal  e não consegui concatenar a variavel que atribui o sinal de operação aritimética.

     Alguém se habilita por gentileza a um Help?  Obrigado.

[Jhonas 0]

Usando o seu exemplo ficaria assim;

VAR  condicao, varSinal, S  : STRING;
begin
   condicao := 'ativo';

   If condicao = 'ativo' then
      varSinal := '+'
   else varSinal := '-';

   S := 'SELECT A ' + varSinal +' B AS RESULTADO FROM TABELA';

   Query1.Active := false;
   Query1.SQL.Clear;
   Query1.SQL.Append(S);
   Query1.Active := true;

   showmessage(s);
   showmessage(FLOATTOSTR(Query1RESULTADO.Value));
end;

Obs: o mesmo código se aplica ao  ZQuery

abraço

[Lazaruz 0]

Showww!! Valeu denovo.   Deve ter vindo de algum baú e ainda de algum  subterrâneo. Já li tantos livros e nunca vi isto.

Funcionou! Abr.