Foros Club Delphi - Ver Mensaje Individual - Como se si una sentencia esta en la query

marcoszorrilla · #2 24-07-2005

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.