IterateSubtree Suche in VST

[youuu]

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?

[youuu]

Nachtrag:

Bei Zahlen funktioniert es problemlos nur bei Buchstaben nicht, kennt jemand den Grund dafür?

[DeddyH]

Funktioniert es, wenn Du die Bedingung etwas anders formulierst?VstCustomer.IsVisible[Node]:= (EditSearch.Text = '') or {StrUtils.}AnsiStartsText(EditSearch.Text, Customer.company_name);

[youuu]

Super das war es!

Kannst du mir das auch einmal erklären, damit ich es beim nächsten mal weiß

[DeddyH]

Nunja, AnsiStartsText ist case-insensitive, das ist im Prinzip der Hauptunterschied.

[himitsu]

Will heißen, du kannst auch mal ein kleines "a" drücken, obwohl im Text ein großes "A" vorkommt.
Bei deiner Variante muß die Groß-/Kleinschreibung genau überainstimmen.