2 TTreeView vergleichen...

[NeoXan]

Hallo,

ich würde gerne 2 TreeViews vergleichen und dann halt auf die Einträge zugreifen können, welche sich unterscheiden...sprich, welche in der ersten TreeView vorkommen, nicht jedoch in der zweiten.

Delphi-Quellcode:

Computer := TTreeView.CreateParented( frmMain.Handle );
  Notebook := TTreeView.CreateParented( frmMain.Handle );
  Verzeichnis(Computer);
  Verzeichnis(Notebook);

  for i:=0 to Computer.Items.Count-1 do
  begin
//   ShowMessage(Computer.Items[i].Text);
    if CompareEntry(Computer.Items[i], Notebook) then 
    begin
      ShowMessage('blub');
    end;
  end;

  Computer.Free;
  Notebook.Free;

Delphi-Quellcode:

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

vielen Dank im Vorraus...
Florian