Vergleichen von Items im TreeView

[BluesKid]

Moin moin

Delphi-Quellcode:

procedure SelectNode(const Tx: string; Tree: TTreeView);
var
  node : TTreeNode;
begin             
  if Tx = '' then exit;
  node := Tree.GetFirst; {get the top node / items[0]}
  while (node <> nil) do begin
    if CompareText(Tx, node.Text) = 0 then begin
      Tree.Selected := node;
      node.MakeVisible;
      break;
    end else node := node.GetNext; {get the next node}
  end;
end;

gefunden auf :

http://www.chaho.de/templates/show_a...geID=1&GetID=2

schönen Gruß

Sam