var
AList,BList:TList;
//实现把AList,复制到BList内
BList.Assign(AList,laCopy);
TList.Assign声明:
procedure Assign(ListA: TList; AOperator: TListAssignOp; ListB:
TList);
TListAssignOp = (laCopy, laAnd, laOr,
laXor, laSrcUnique, laDestUnique);
谢谢杭州Vincent 指点!