Delphi TObjectStack如何访问top以外的项目？

发布时间：2020-12-15 04:13:52 所属栏目：大数据来源：网络整理

导读：在Delphi XE2中,我需要一个通用对象堆栈,其中我的调用代码不仅可以访问top(通过Peek),还可以访问Top-1,Top-2等等.或许更多的是“ObjectStackList”. 我没有发现使用现有System.Generics.Collections类实现该方法的简单方法.并且TObjectStack的FItems在TStack

在Delphi XE2中,我需要一个通用对象堆栈,其中我的调用代码不仅可以访问top(通过Peek),还可以访问Top-1,Top-2等等.或许更多的是“ObjectStackList”.

我没有发现使用现有System.Generics.Collections类实现该方法的简单方法.并且TObjectStack的FItems在TStack中是私有的,因此没有直接的方法来创建可以访问它的TObjectStack后代.

我意识到我可以使用ToArray按索引访问项目,但这会创建一个单独的数组,这似乎浪费时间和空间来访问FItems中的单个项目.

有任何想法吗？

解决方法

只需使用TObjectList.您可以访问所需的所有元素,并且可以在要将其视为堆栈顶部的任何一端进行修改.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!