despliegue de datos en dbgrid conforme escribo dato a buscar

[alexglez1255]

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

[[AgustinOrtu]]

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

[Casimiro Notevi]

Empezado por alexglez1255

Hola

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



Gracias

[ecfisa]

Hola alexglez1255.

Empezado por alexglez1255

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
...

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

[alexglez1255]

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

[alexglez1255]

Gracias ECFISA Tu manera me funciono muy bien muchas gracias