NodeToTest method |
Applies to
TDUnitDialog
Declaration
Function NodeToTest(node :TTreeNode): ITest;Implementation
function TDUnitDialog.NodeToTest(Node: TTreeNode): ITest; var index: Integer; begin assert(assigned(Node)); index := Integer(Node.data); result := FTests[index] as ITest; End; |
|