Ich habe für einen Tree eine Suchfunktion gebastelt. (siehe Code unten)
In ein Edit gibt man den Suchbegriff ein, mit einem Button-Click werden dann die Items rot markiert, die den Such-Begriff enthalten.
Nun möchte ich noch die Anzahl der Items ausgeben, die gefunden wurden.
Kann mir bitte wer weiterhelfen?
Delphi-Quellcode:
procedure TForm1.treeCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
i : integer;
begin
// LowerCase = Umwandlung in Kleinbuchstaben.
if Pos(LowerCase(edt_suchen.text),LowerCase(node.text))>0 then
begin
tree.Canvas.Font.Color := clred;
ShowMessage(inttostr(tree.Items.Count)); //Gibt die Anzahl aller Datensätze aus
end;
end;