我想在程序运行的时候,让所有里面的控件名称全部随机命名,该如何做?

解决方案 »

  1.   

    是不是不想让其它人看懂你的控件名称?
    Java就有这种,程序编译后把类名、变量名等随机打乱,让反编译的人不容易看懂代码
      

  2.   


    没错,就是想这样。delphi里如何实现呢?
      

  3.   

    名字随便取,引用的时候用动态数组吧·~~不过个人觉得意义不大~~
    var btnarr: array of tbutton;
    ...setlength(btnarr,btncount);
    btnarr[btncount - 1]:=tbutton.create(nil);
    with btnarr[btncount - 1] do
    begin
      caption := 'xx';
      name := xxxx;
      
    end;
      

  4.   

    没有意义,如果你动态生成名字可以做变量 那还可以,在DELPHI没有一点实际意义非要实现 你可以试试创建组件类型列表TStringlist,A中查找添加一个组件时,OBJECT.GETCLASSNAME 然后再在A中查找是否存在OBJECT.GETCLASSNAME  如果不存在然后为OBJECT.GETCLASSNAME 创建一个TStringlist,  B,然后A.ADDOBJECT('OBJECT.GETCLASSNAME',B)然后再B种添加B.addobject('name',组件)