Hallo,
Zitat von
Micha:
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;
hmm, nimm eine globale variable, setze sie zu begin der suche auf 0 und erhöhe sie jedesmal um eins, wenn ein eintrag rot markiert wird und zum schluss hast du die anzahl der gefundenen einträge...
Delphi-Quellcode:
// ...
public
gefunden: Integer;
// ...
begin
tree.Canvas.Font.Color := clRed;
inc(gefunden);
// ...
bye4now, gothic_mike