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

拓思科技

我想把TBizObjectKind的所有值的名称显示在combobox里面，请问怎么做？

atiger

楼主，我个人建议不要使用枚举查找，还是用数据查找，这样你要控制或者操作的东东方便多了

拓思科技

不好意思 不太明白，能给段代码提示一下么

Akon

function GetKindStr(A: TBizObjectKind): String;
begin
  case a of
  TBizObjectKind.boNone: Result := 'boNone';
  TBizObjectKind.boFolder: Result := 'boFolder';
  TBizObjectKind.boFile: Result := 'boFile';
  TBizObjectKind.boServer: Result := 'boServer';
//  boBizServer, boFileServer, boOrgServer, boSpace, boBizDictSpace, boBizInfoSpace, boBizFuncSpace, boBizProcSpace, boParamGroup, boParam, boElementGroup, boElement, boFieldTempletGroup, boFieldTemplet, boDatabase, boTable, boField, boLibrary, boForm, boInfo, boDataSet, boDataSetField, boFormDoc, boSheetDoc, boRichDoc, boFunc, boProc, boOrgRoot, boPositionRoot, boPersonRoot, boOrgan, boDept, boPositionMember, boPersonMember, boWorkGroup, boWorkGroupMember, boPosition, boPerson, boIcon, boBitmap, boGif, boJpeg, boHeaderFooter, boToolBar, boOperationGroup, boOperation);
  else Result := '(unknown)';
  end;
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
  i: TBizObjectKind;
begin
  for i:= Low(TBizObjectKind) to High(TBizObjectKind) do
    memo1.Lines.Add(GetKindStr(i));
end;

是这样吗？

拓思科技

for j:=Low(TBizObjectKind) to High(TBizObjectKind) do
   begin                  
       ComboBox2.Items.Add(j.tostring);
   end;

拓思科技

必须用case么，这也不是遍历啊
这么多项，要是一个一个写，很累啊

Akon

你这么运行不会报错？

拓思科技

报错了
Access violation at address 00000000. Read of address 00000000

zfang

最初由 拓思科技 发布
[B]for j:=Low(TBizObjectKind) to High(TBizObjectKind) do
   begin                  
       ComboBox2.Items.Add(j.tostring);
   end; [/B]

这么写不对吧。
参照上面的函数，应该这么写才对
ComboBox2.Items.Add(GetKindStr(j));

拓思科技

最初由 拓思科技 发布
[B]必须用case么，这也不是遍历啊
这么多项，要是一个一个写，很累啊 [/B]

有别的方法么，不能通过函数获取TBizObjectKind里每一项的名称么