遞歸的使用

var iFindRec, iParentRec: IGSPRecord; begin Result := -1; iFindRec := FSection.FindByID(ASectionID); if not Assigned(iFindRec) then Exit; iParentRec := iFindRec.FindField(pfnPID).MasterRecord; while i

>>阅读原文<<