2 TTreeView vergleichen...

[Jens Schumann]

Zitat von mumu:

was ist dabei dein problem?

Wahrscheinlich weil CompareEntry immer False zurückliefert.Das liegt daran, dass die Referenzen auf den Nodes verglichen werden. Die müssen natürlich unterschiedlich sein. Evt. reicht es ja aus den NodeText zu vergleichen.

Delphi-Quellcode:

function CompareEntry(Node: TTreeNode; TreeView: TTreeView):boolean; 
var i: integer; 
    NodeText : String:
begin 
  Result := false; 
  NodeText:=AnsiUpperCase(Node.Text);
  for i:=0 to TreeView.Items.Count-1 do 
  begin 
   if(NodeText = AnsiUpperCase(TreeView.Items[i]).Text) then 
    begin 
    Result:= true; 
    Exit
    end; 
  end; 
end;