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;