var  cc array [1..10] of TAgent;
begin
  cc[1].module[1].Name:='7777';
  showmessage(cc.module[1].Name);
end;
没有问题啊...?

解决方案 »

  1.   

    你要问什么?
    你要说出你的问题阿!
    你不说我怎么知道你要问什么问题呢?
    我不知道你问什么我怎么回答你的问题呢?—————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    if Not Assigned(I) then
      I := TI.Create(Nil);
    I.Maxim := MaximStr;
    I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
    I.Desire := '加不加分随你';
    —————————————————————————————————