如何在不同的单元访问类的私有方法？(200分)

, (Count-left-len) *
SizeOf(Pointer));
count := count-len;
end;
end;
这段代码的功能是在TList.List这个Buffer中，将删除后的剩余结点直接移动到Left这个位置上，从而完成全部的移动操作。
然后，我们再设count := count-len;来使用个数减少，从而完成了成批量的删除。
好的，如果一切正常，算法的速度将大幅度提升！OHHH，美妙的想法！
但是，真的是这样么？我再用效率测试程序来测试了一轮，结果是这样的：
1. 测试数据为10万个结点，则逆向删除算法耗时为20.56毫秒，CutList()函数耗时9.69毫秒；
2. 测试数据为100万个结点，则逆向删除算法耗时为209.13毫秒，CutList()函数耗时98.01毫秒。
速度比逆向算法提高了一倍，而且应该注意到，CutList()的耗时仍然随数据量的增大而等比例的增大！！！而从CutList()函数的实现来看，数据量增大，算法耗时应该只增加极少才对。
要知道，只加快一倍速度的CutList()，并不是我所想要的！！！但为什么CutList()函数得不到更高的性能呢？？？

三、 面对私有域FCount，我咬牙切齿！！！
再次分析TList类的实现代码，发现count接口实现时，是用SetCount来写值，即CutList()函数中，
count := count-len;
一行的调用，实际上将调用
TList.setCount(count-len);
而TList.setCount()的实现代码如下：
procedure TList.SetCount(NewCount: Integer);
var
I: Integer;
begin
if (NewCount < 0) or (NewCount > MaxListSize) then Error(@SListCountError, NewCount);
if NewCount > FCapacity then SetCapacity(NewCount);
if NewCount > FCount //如果要增加Count的值，则调用Fillchar()来填充FList这个Buffer
//如果是要减少Count的值，则用for循环调用Delete()来删除结点
then FillChar(FList^[FCount], (NewCount - FCount) * SizeOf(Pointer), 0)
else for I := FCount - 1 downto NewCount do Delete(I);
FCount := NewCount;
end;
请注意看我在上面注释！OH！事实上，SetCount这个操作仍然将调用Delete()来删除各个结点(注意，Borland为了提高这个删除速度，也使用了逆向删除的算法来实现对Delete()的调用)。
所以，我们并不能在CutList()中得到更好的算法效率！——尽管，我们已经只要，仅仅只需要将FCount设成指定值即可，而并不需要再来一次成批的Delete()！
然而，FCount是一个私有域！！！从Delphi对OOP的实现机制来看，我只能通过SetCound()来实现写访问！！！在Classes.pas单元中的这段代码清楚地表明了这一切：
TList = class(TObject)
private
FList: PPointerList;
FCount: Integer;
...
protected
...
procedure SetCount(NewCount: Integer);
...
public
...
property Count: Integer read FCount write SetCount;
...
property List: PPointerList read FList;
end;
——看到这里，我咬牙切齿！！！

四、 跨域私有域保护！
但是接下来，我注意到一点，我们看到，Count读是直接读FCount的值，而写操作是调用SetCount()函数。仔细思考一下这个问题：
既然“Count读是直接读FCount的值”，那么，Count的地址是不是也直接指向FCount呢？？？
OK，且让我们用一段代码来证明它：
program testFixCount;
uses classes, Dialogs, sysUtils;
var t : TList;
pCount : ^Integer;
begin
t := TList.create;
pCount := @t.Count
//取得地址？
ShowMessage(IntToStr(pCount^));
t.Count := 10000;
ShowMessage(IntToStr(pCount^));
end.

很明显，pCount成功地得到了FCount的地址。哈哈，我们既然已经取得了一个变量在内存中的地址，那么，还有什么是不能做的呢？？？
我们可以很快完成这样的一段代码来测试对FCount私有域的直接写访问：
program testFixCount;
uses classes, Dialogs, sysUtils;
var t : TList;
pCount : ^Integer;
begin
t := TList.create;
pCount := @t.Count;
pCount^ := 10;
showMessage(IntToStr(t.Count));
end.
接下来，我们可以将curList()函数修改一下下了：
procedure CutList(aList:TList
left,len:integer);
var pCount : ^Integer;
begin
with aList do begin
System.Move(List^[left+len], List^