despliegue de datos en dbgrid conforme escribo dato a buscar
 

Hola buen dia a todos tengo ya varios dias atorado en hacer que a la hora de buscar el nombre de un cliente en mi tabla clientes conforme lo escribo me muestre en un dbgrid todos los registros que se aproximen a lo escrito este el codigo del Tedit

Código Delphi [-]
procedure Taltadecontratos.edtBuscarCteChange(Sender: TObject);
var
 cadenaAbuscar:String;
 codcliente:Integer;
begin

CadenaAbuscar:=edtBuscarCte.Text;
if (cmbBusqCte.ItemIndex<>1)and(CadenaAbuscar<>'') and (not TryStrToInt(cadenaAbuscar,codcliente)) then
  begin
   raise Exception.Create(
  'Solo introducir numeros por favor para buscar en campo de '+cmbBusqCte.Text);
  end;

//Buscar numero de cliente

if cmbBusqCte.ItemIndex=0 then
  logicanegocio.CDSclieCOD.Locate('COD_CLIENTE',edtBuscarCte.Text,[loPartialKey]);
if cmbBusqCte.ItemIndex=1 then
  logicanegocio.CDSclieCOD.Locate('CLIENTE',edtBuscarCte.Text,[loPartialKey]);
end;

y tengo un dbgrid que esta realcionado con el CDScliecCOD usando un parametro bajo el campo cliente me explico..?
si funciona pero a la hora de llamar la forma me aparecen todos los clientes y yo quiero que a la hora de lllamar la forma no aparesca nada en la refilla y solo hasta que se lo escriba .. me explico..?

apreciare cualquier sugerencia tengo la version de delphi 6

Proba:

1. Hacer un Close al ClientDataSet
2. No relaciones el DBGrid con el ClientDataSet en tiempo de diseño. Hacelo por codigo, me explico?

Saludos

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

Hola alexglez1255.
Por lo que comentas, deberías hacer algo así:

Código Delphi [-]
procedure tu_TForm.tu_EditChange(Sender: TObject);
begin
  with tu_ClientDataSet do
  begin
    Filtered := False;
    Filter   := Format( 'NOMBRE LIKE %s ', [ QuotedStr(tu_Edit.Text + '%' ) ] );
    Filtered := True;
  end;
end;

Saludos :)

muchas gracias voy a probar los tres a ver cual me funciona muchas gracias

Muchas gracias
 

Gracias ECFISA Tu manera me funciono muy bien muchas gracias