Como se si una sentencia esta en la query

[satabel]

hola


Tengo una consulta Query, quisiera saber como valido en ejecucion, si en ella esta la sentencia 'ORDER BY AÑO' y si no esta agregarla con
query.sql.add('ORDER BY AÑO');

gracias por su colaboración adios

[marcoszorrilla]

Mira este ejemplo que acabo de probar y funciona correctamente:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Query1.Close;
 Query1.Sql.Clear;
 Query1.Sql.Add('Select Codigo, nombre, direccion');
 Query1.Sql.Add('From Clientes');
 Query1.Sql.Add('Order by Codigo');
 Query1.Open;
 
 
   If Pos(UpperCase('Order by codigo'),UpperCase(query1.Text))>0  then
   ShowMessage('Está la cadena.')
   else
   ShowMessage('No está la cadena.');
 
 end;

Un Saludo.