[求助]如何解决集合超过256个元素的限制？

Question

我在编程时遇到一个设置权限的功能，想用集合来做。不过集合有256个元素上限的限制，如果我的权限有三四百个，那么就不合适了。我也想过用数组来做，不过取数据时要自己循环判断，而且为确保权限命名不重复还必须多加判断，确实比较麻烦。如果用TCollection来做，和用数组做的复杂程度差不多。各位有什么好经验好方法分享一下，谢谢了。

Answer 1

var
str:string;
begin
    str := '256个字符'+'256个字符'//这样就不会提示超过256个字符
    //str :='大于256个字符'，就会提示有错end;
这样说，不知道对你是不是有帮助。

Answer 2

“ Kevin_Lmx(繁华阅尽)”的不错啊， 多搞几个集合不行吗？
Tsetfile = (sfRead, sfWrite..);
TsetDatabase = (sdQuery, sdUpdate..);
TPower = record
  File: Tsetfile;
  Edit: TsetDatabase;
end;

Answer 3

var
  aQuery:TSHQuery;
  vHost:^THostList;
  i:integer;
begin
  aQuery:=TSHQuery.Create(nil);
  with aQuery do
  begin
    SQL.Clear;
    SQL.Add('SELECT  * FROM THOSTLIST');
    SQL.Add('WHERE MACID NOT IN (');
    SQL.Add('SELECT HL.MACID FROM TUSERHOSTS UH');
    SQL.Add('LEFT JOIN THOSTLIST HL ON UH.HOSTID=HL.MACID');
    SQL.Add(format('WHERE UH.USERID=%d)',[CurID]));
    SQL.Add('ORDER BY IP_ADDR');
    try
      Open;
      i:=1;
      while not eof do
      begin
        New(vHost);
        vHost.hlID:=FieldByName('MacID').AsString;
        vHost.hlCName:=FieldByName('CName').AsString;
        vHost.hlServer:=FieldByName('HostName').AsString;
        vHost.hlIPAddr:=FieldByName('IP_Addr').AsString;
        vHost.hlMacAddr:=FieldByName('Mac_Addr').AsString;
        ListBoxHost.Items.Add(format('%d,%s - %s',[i,vHost.hlCName,vHost.hlIPAddr]));
        HostList.AddObject(vHost.hlID,Pointer(vHost));
        Inc(i);
        Next;
      end;
    except
    end;
  end;
THostList是个结构，把每个结构的指针写到TStrings的Object里，这样写多少都可以了。