递归的使用

var
 iFindRec, iParentRec: IGSPRecord;
begin
  Result := -1;
  iFindRec :=  FSection.FindByID(ASectionID);
  if not Assigned(iFindRec) then  Exit;
  iParentRec := iFindRec.FindField(pfnPID).MasterRecord;
  while iParentRec <> nil do
  begin
    iFindRec := iParentRec;
    iParentRec := iFindRec.FindField(pfnPID).MasterRecord;
  end;
  Result := iFindRec.ID;
end;

 

转载于:https://www.cnblogs.com/echomyecho/archive/2012/05/21/2512014.html