list index (2) out of bounds ----dbgrid

[[duilioisola]]

Quizás con un IF

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  sqlquery1.Close;
  sqlquery1.sql.Clear;
  if (edit1.text > ' ') then
    sqlquery1.SQL.text:='select nombre,telefono1 from contactos where nombre like '+quotedstr('%'+edit1.text+'%')
  else
    sqlquery1.SQL.text:='select nombre,telefono1 from contactos ');
  sqlquery1.Open;
end;

o utilizando parámetros

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var 
   p : string;
begin
  if (edit1.text > ' ') then
     p := '%'+edit1.text+'%';

  sqlquery1.Close;
  sqlquery1.sql.Clear;
  sqlquery1.SQL.text:='select nombre,telefono1 from contactos where nombre like arte_de_nombre');
  Params.ByName['parte_de_nombre'].AsString := p;
  sqlquery1.Open;
end;