哪位朋友能谈一谈TList.Assign的用法？万分感谢！

Question

网上找不到相关说明，只好到这里求救了。

Answer 1

在控件注册里面增加一个PropertyEditor的注册，可以参考偶的代码。procedure Register;
begin
  RegisterComponents('你的控件', [控件名]);
  ......
  //注册属性编辑器TShortCut类型
  RegisterPropertyEditor(TypeInfo(TShortCut), TmsAction, 'ShortCut', TShortCutProperty);
end;

Answer 2

补充说明，'ShortCut'是TmsAction的一个published property。

Answer 3

晕…………回错贴，不好意思，熬夜后神志不太清醒。
分好少，不过为表歉意，还是回答一下吧。procedure TList.Assign(ListA: TList; AOperator: TListAssignOp = laCopy; ListB: TList = nil);
首先，数学老师曾经说过，两个集合之间存在这样的一些运算：复制、取交集、取合集、取补集等等，这就是AOperator。
其次，这个函数最多可涉及三个集合的操作：self, ListA, ListB，函数的意思是：
如果ListB不为空，首先清空self，将ListA中的对象复制到self中，然后根据AOperator和ListB进行各类运算，也就是将ListA和ListB做运算后的结果存入self。
如果ListB为空，则根据AOperator将self和ListA进行各类运算。