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

[mumu]

was ist dabei dein problem?

[Jens Schumann]

Zitat:

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;

[NeoXan]

Das ist schonmal gut, aber der Text könnte ja in mehreren Nodes vorkommen...

Es geht praktisch darum, dass ich 2 Verzeichnisstrukturen in 2 TreeViews habe und nun schauen möchte wo sie sich unterscheiden bzw. Welche Dateien aus der ersten Struktur sich nicht in der zweiten Struktur wiederfinden lassen...