Hi,
ich suche im Vst so
Delphi-Quellcode:
Procedure TFormMain.SucheCallback(Sender: TBaseVirtualTree; Node: PVirtualNode; data: Pointer; var Abort: Boolean);
Begin
Customer:= TCustomerDaten(VstCustomer.GetNodeData(Node)^);
VstCustomer.IsVisible[Node]:= (EditSearch.Text = '') or (pos(EditSearch.Text, Customer.company_name)>0);
End;
procedure TFormMain.EditSearchChange(Sender: TObject);
begin
VstCustomer.IterateSubtree(nil, SucheCallback, nil)
end;
Nur habe ich ein Problem nicht alle werden gefunden.
Beispiel:
Ich gebe "T" ein er findet "Tierarztpraxis" logisch
gebe ich nun "Ti" oder "Tier" findet er es schon nicht mehr, wie kann das sein?