Hallo,
ich möchte gerne für deine DBLookupListBox eine Suchfunktion einbauen.
Hierfür habe ich nun auf meiner Form:
DBLookUpListBox1
Edit1
Im Internet gab es eine Anleitung für die normale ListBox, welche ich dann mit eine Sache abgeändert hatte:
Delphi-Quellcode:
procedure TListBoxSearchForm.Edit1Change(Sender: TObject) ;
const
indexStart = -1;
var
search : array[0..128] of Char;
begin
//make sure Length(Edit1.Text) <= 128
StrPCopy(search, Edit1.Text) ;
ListBox1.----->ItemIndex<--- := ListBox1.Perform(LB_SELECTSTRING, indexStart, LongInt(@search)) ;
end;
Diese Stelle habe ich in ListFieldIndex umbenannt.
Klappt aber überhaupt nicht.
Es tut sich nichts (Auch keine Fehlermeldung), wenn man etwas in das Editfeld schreibt.
Nun dachte ich mir dann setze ich die
Query einfach anders und fülle quasi die DBLookUpListBox neu... denkst wie folgt ging es nicht:
Delphi-Quellcode:
Formname.database_xx.sql.text := '
query Where name like qwe';
DBLookupListBox1.Update;
Es kam einfach eine leere DBLookUpListbox heraus.
Auch wenn ich die
Query nicht veränderte und nur das Update ausführte kam nichts bei heraus.
Daher meine Frage, wie kann ich eine Suchfunktion einbauen, damit die DBLookUpListBox meine Suchergebnisse selektiert ?
Herzliche Grüße,
Mike
Delphiversion ist Delphi7.