Ich nutze auch vor der Verwendung von Pos() ein UpperCase() bzw. LowerCase:
Delphi-Quellcode:
Column := TVirtualStringTree(Sender).Header.Columns.GetFirstVisibleColumn();
while (Column <> InvalidColumn) do
begin
NodeText := UpperCase(TVirtualStringTree(Sender).Text[Node, Column]);
bFoundText := (Pos(SearchString, NodeText) > 0);
if bFoundText then
Break;
Column := TVirtualStringTree(Sender).Header.Columns.GetNextVisibleColumn(column);
end;
Sender.IsVisible[Node] := bFoundText;
Und sollte man nicht auf die Verwendung der
ANSI Funktionen hinsichtlich Delphi 2009 und
Unicode Strings verzichten?