``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var ARankNames, ANames: TStrings; begin if Player.Guild <> nil then begin //取得全部称号名称 ARankNames := TStringList.Create; try Player.Guild.GetRankNames(ARankNames); //ARankNames必须执行创建和释放 finally ARankNames.Free; end; //取得某称号下全部成员 ANames := TStringList.Create; try Player.Guild.GetRankMembers('猛虎队', ANames); //ANames必须执行创建和释放 finally ANames.Free; end; end; end; ```