dblookupcombobox1 y edit

[droguerman]

ayer postee un solución parecida creo que te puede servir:

http://www.clubdelphi.com/foros/showthread.php?p=211461

[anubis]

Se agradece, pero no se como usar ese algoritmo en un dblookupcombobox, si es un listbox si porque lo compara rastreando el listbox.
Estuve mirando sobre los comodines pero no funcionan, es decir, usando el locate, con el edit1.text cuando el edit1.text es p* y el resto que buscara la primera letra que empiece por p y el resto lo pone el mismo.

alguna idea

gracias

[droguerman]

mira, lo que hace ese algoritmo es inicializar el itemIndex en -1 simular que escribes todo el texto y nada más, solo hay que hacer una variante como esta, espero os resulte:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var
  i : integer;
begin
  dblookup.keyvalue := null;
  for i:= 1 to length(edit1.text) do
     SendMessage(dblookup.Handle, WM_CHAR, integer(edit1.text[i]), 0);
end;

[courtois]

en el OnKeyPress de tu edit

Código Delphi [-]
      DBLookUPComboBoxq.ListSource.Filter:='CAMPO LIKE '''+edit1.text+'%''';
      DBLookUPComboBoxq.ListSource.Filtered:=True;

[anubis]

se agradece a los dos.
Droguerman: Funciona hasta cierto punto tu algoritmo, a veces localiza el nombre y a veces no.

courtois: en el dblookupcombobox no aparece el filter ni el filtered.

[[eduarcol]]

Empezado por anubis

en el dblookupcombobox no aparece el filter ni el filtered.

Prueba esto

Código Delphi [-]
TDataset(DBLookupComboBox1.ListSource).Filter

[anubis]

estoy probando esto:

Código Delphi [-]
datacliha.tpersonas(buscapersonas.ListSource).Filter:='Nombre LIKE '''+edit1.text+'%''';
     datacliha.tpersonas(buscapersonas.ListSource).Filtered:=True;

donde datacliha es el datasource y el tpersonas es el tdataset, pero me da error en ambas 'missing operator o semicolon'

[[eduarcol]]

No se que tan valida sera tu forma pero a mi me gusta mas esto:

Código Delphi [-]
TDataset(buscapersonas.ListSource).Filter:='Nombre LIKE ' + QuotedStr(edit1.text + '%');
TDataset(buscapersonas.ListSource).Filtered:=True;

Creo que es la forma correcta del cast, porq anteriormente casteabas a un objeto no a una clase como deberia ser,

pero es mi humilde opinion no se si estare en lo cierto