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.

zusammenfalten · markieren

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;

zusammenfalten · markieren

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

was ist dabei dein problem?

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.

zusammenfalten · markieren

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;

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...