TestToNode method |
Applies to
TDUnitDialog
Declaration
Function TestToNode(test :ITest): TTreeNode;Implementation
function TDUnitDialog.TestToNode(test: ITest): TTreeNode; var node: TTreeNode; FoundNode : TTreeNode; begin assert(assigned(test)); FoundNode := nil; node := TestTree.Items.GetFirstNode; while assigned(node) do begin if NodeToTest(node)= test then begin FoundNode := node; break; end; node := node.getNext; end; assert(assigned(FoundNode)); Result := FoundNode; End; |
|