【结贴】怎样遍历枚举类型**

Akon

目前没有,楼主找到的话,可以共享一下

拓思科技

OK 正在找，找到了再反馈吧

拓思科技

TBizObjectKind.boNone: Result := 'boNone';
     TBizObjectKind.boFolder: Result := 'boFolder';
     TBizObjectKind.boFile: Result := 'boFile';
     TBizObjectKind.boServer: Result := 'boServer';
     TBizObjectKind.boBizServer: Result := 'boBizServer';
     TBizObjectKind.boFileServer: Result := 'boFileServer';
     TBizObjectKind.boOrgServer: Result := 'boOrgServer';
     TBizObjectKind.boSpace: Result := 'boSpace';
     TBizObjectKind.boBizDictSpace: Result := 'boBizDictSpace';
     TBizObjectKind.boBizInfoSpace: Result := 'boBizInfoSpace';
     TBizObjectKind.boBizFuncSpace: Result := 'boBizFuncSpace';
     TBizObjectKind.boBizProcSpace: Result := 'boBizProcSpace';
     TBizObjectKind.boParamGroup: Result := 'boParamGroup';
     TBizObjectKind.boParam: Result := 'boParam';
     TBizObjectKind.boElementGroup: Result := 'boElementGroup';
     TBizObjectKind.boElement: Result := 'boElement';
     TBizObjectKind.boFieldTempletGroup: Result := 'boFieldTempletGroup';
     TBizObjectKind.boFieldTemplet: Result := 'boFieldTemplet';
     TBizObjectKind.boDatabase: Result := 'boDatabase';
     TBizObjectKind.boTable: Result := 'boTable';
     TBizObjectKind.boField: Result := 'boField';
     TBizObjectKind.boLibrary: Result := 'boLibrary';
     TBizObjectKind.boForm: Result := 'boForm';
     TBizObjectKind.boInfo: Result := 'boInfo';
     TBizObjectKind.boDataSet: Result := 'boDataSet';
     TBizObjectKind.boDataSetField: Result := 'boDataSetField';
     TBizObjectKind.boFormDoc: Result := 'boFormDoc';
     TBizObjectKind.boSheetDoc: Result := 'boSheetDoc';
     TBizObjectKind.boRichDoc: Result := 'boRichDoc';
     TBizObjectKind.boFunc: Result := 'boFunc';
     TBizObjectKind.boProc: Result := 'boProc';
     TBizObjectKind.boOrgRoot: Result := 'boOrgRoot';
     TBizObjectKind.boPositionRoot: Result := 'boPositionRoot';
     TBizObjectKind.boPersonRoot: Result := 'boPersonRoot';
     TBizObjectKind.boOrgan: Result := 'boOrgan';
     TBizObjectKind.boDept: Result := 'boDept';
     TBizObjectKind.boPositionMember: Result := 'boPositionMember';
     TBizObjectKind.boPersonMember: Result := 'boPersonMember';
     TBizObjectKind.boWorkGroup: Result := 'boWorkGroup';
     TBizObjectKind.boWorkGroupMember: Result := 'boWorkGroupMember';
     TBizObjectKind.boPosition: Result := 'boPosition';
     TBizObjectKind.boPerson: Result := 'boPerson';
     TBizObjectKind.boIcon: Result := 'boIcon';
     TBizObjectKind.boBitmap: Result := 'boBitmap';
     TBizObjectKind.boGif: Result := 'boGif';
     TBizObjectKind.boJpeg: Result := 'boJpeg';
     TBizObjectKind.boHeaderFooter: Result := 'boHeaderFooter';
     TBizObjectKind.boToolBar: Result := 'boToolBar';
     TBizObjectKind.boOperationGroup: Result := 'boOperationGroup';
     TBizObjectKind.boOperation: Result := 'boOperation';

Akon

?

拓思科技

结贴吧，没找到可以循环的方法

Akon

好的,结贴