Foros Club Delphi - el codigo completo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - el codigo completo (https://www.clubdelphi.com/foros/showthread.php?t=23222)

el codigo completo

este es el codigo que tengo en el change
no me funciona nada, primero se ven los datos de la tabla y cuando escribes algo el grid se queda en blanco no me realiza la busqueda

Código Delphi [-]  if edit1.text<>'' then
    begin
Query1.Close;
      Query1.SQL.Clear;
      Query1.SQL.Add ('Select *');
      Query1.SQL.Add ('FROM proveedores');
      Query1.SQL.Add ('WHERE Proveedor Like '+QuotedStr(Edit1.Text+'%'));
      Query1.Open;
      query1.SQL.text:='SELECT * FROM proveedores WHERE Proveedor like ' +
  QuotedStr(Edit1.Text + '%');
    end
  else
    begin
      query1.SQL.text:='SELECT * FROM proveedores'
    end;

Código:

 

  if edit1.text<>'' then

   query1.SQL.text:='SELECT * FROM proveedores WHERE Proveedor like ' + QuotedStr(Edit1.Text + '%')

 else

   query1.SQL.text:='SELECT * FROM proveedores';

 

  Query1.Open;

Yo creo que falta el open de la query...

Por lo dicho en este duplicado (de tres), este hilo queda cerrado.

Favor apegarse a la guia de estillo.