Problemas con consulta a Interbase

[orion]

Muchas gracias Aztaroth, de hecho si funciona el LIKE tal y como tu me hiciste la observación, escribo la cadena o subcadena en el TEdit, pulso enter, evalua la consulta sql y despliega los registros coincidentes en el TDBGrid, el detalle es que tengo que pulsar la TECLA ENTER para que se evalue la consulta, si borro el IF que prueba si la tecla es ENTER pasa lo siguiente:

Al pulsar la primer letra dentro del TEdit esto hace que el codigo se ejecute y el resultado en el Grid muestra todos los registros de la tabla, asi es que sigo sin obtener el resultado que espero.

Hay algo mas que sigo sin comprender, supongamos que mi cunsulta se ejecuta bien por medio del LIKE y usando el ENTER como tecla de ejecución, el problema es que si escribo una segunda cadena y pulso enter para que muestre los registros en el Grid esto trae como consecuencia el siguiente ERRROR:
Proyect movies.exe raised exception class EDatabaseError with message 'IBDataSet2:Field'' not found'.

Muchas gracias por sus comentarios, hasta pronto.

[[Héctor Randolph]]

Hola ORION!

Mi propuesta es la siguiente:

Escribe el siguiente código en el evento OnChange del Componente TEdit, de esta forma no te metes en líos con OnKeyPress

Código Delphi [-]
procedure TPeliculas.TituloChange(Sender: TObject);
begin
  // ocurre el evento cada vez que cambia el texto
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT TITULO,GENERO,FORMATO,CLASIFIC FROM PELICULAS');
    SQL.Add('WHERE PELICULAS.TITULO STARTING WITH :Tit');
    // Envías como parámetro el texto contenido en el TEdit
    ParamByName('Tit').AsString:=Titulo.Text;
    Open;
  end;
end;

De hecho no es necesario crear el SQL en tiempo de ejecución, puedes añadir las líneas en el SQL en tiempo de diseño y después solamente cambiar el parámetro :Tit en tiempo de ejecución de la siguiente manera:

Código Delphi [-]
procedure TPeliculas.TituloChange(Sender: TObject);
begin
  with IBQuery1 do
  begin
    Close;
    ParamByName('Tit').AsString:=Titulo.Text;
    Open;
  end;
end;

Decidí utilizar un componente TIBQuery porque la idea es solamente consultar, pero obtienes el mismo resultado si utilizas un TIBDataSet.

Espero que te sea útil.

Hasta pronto.

[orion]

Hector Muchas gracias, la solución que me diste es la que yo buscaba, exactamente como queria que funcionara la consulta.

Gracias a todos por el apoyo y seguiremos esforzandonos por aprender.