Nodes mit Daten (TTreeNodeEx) durchsuchen

[Furtbichler]

Das geht entweder mit RTTI-Informationen. Aber eine Klasse, die es erlaubt, in ihren Daten zu suchen, sollte eine solche Methode bereitstellen. Wie das intern gelöst ist, ist dann ja zweitrangig. So wäre das imho am einfachsten umzusetzen.

Reflection geht natürlich auch (ach, in Delphi heißt das ja irgendwie RTTI o.ä.)

Delphi-Quellcode:

Procedure TMyTreeData.Search (aText : String; aNode : TNodeType) : Boolean;
Begin
  case aNode of
    Eintrag1 : result := Eintrag1=aText;
    Eintrag2 : result := Eintrag2=aText;
    ...
  end
end;

[sx2008]

spendiere deiner Klasse TTreeNodeEx doch eine Methode SearchAll():

Delphi-Quellcode:

function TTreeNodeEx.SearchAll(const s:string):Boolean;
begin
  Result := (Eintrag1=s) or (Eintrag2=s) or (IntToStr(Eintrag3)=s);
end;


for i := 0 to treeview.Items.Count-1 do
   if ((treeview.Items[i]) as TTreeNodeEx).SearchAll(Auswahlkriterium) then {mach irgendwas}

Falls du mehrere Klassen von TTreeNodeEx abgeleitet hast machst du die Suchfunktion eben virtuell.

[Opa Knack]

Super, ich danke euch.