高手来看－－－－ 写一个等同于tstringlist.assign的函数(属性复制)(100分)

................
...............
//属性为
property Items[Index: Integer]: string read GetItems write SetItems;
{Returns the Value of the first item with the form Position=Inddex with the specified name part.}
property Names[Index: Integer]: string read GetNames write SetNames;
..................
..................
procedure TVarParser.Assign(Source:TAbsVarParser);
var
begin
end;
.....................
.....................
//注意 “Source:TAbsVarParser” 不是 "Source:TPersistent
谢谢

如果你要复制的属性只有Items，而且能够取得Source:TAbsVarParser的Items值，还有方法给自己
能够给自己的类的Items增加元素，你只要遍历Source:TAbsVarParser的Items，然后给自己的Items
增加相应的元素就行了。

你在CSDN上也发了一个这样的帖子阿，
TAbsVarParser和TVarParser是什么关系？

多人接受答案了。