delphi – 调整TStringList大小的更好方法？

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

导读：我经常发现我需要’调整’一个TStringList来精确地保存N个元素,或者在列表中添加额外的空字符串,或者删除不必要的字符串. 在C STL容器上,我可以使用resize方法,但由于这似乎不存在,我通常会做这样的事情(警告：伪代码！). list.beginUpdate;while list.Count

我经常发现我需要’调整’一个TStringList来精确地保存N个元素,或者在列表中添加额外的空字符串,或者删除不必要的字符串.

在C STL容器上,我可以使用resize方法,但由于这似乎不存在,我通常会做这样的事情(警告：伪代码！).

list.beginUpdate;

while list.Count < requiredSize do
begin
   list.add('');
end;

while list.Count > requiredSize do
begin
   list.delete(list.count-1);
end;

list.endUpdate;

是否有一种更为简单的方法可以让我忽略这一点？

解决方法

从TStringList.Assign的实现来看,没有更好的方法来做到这一点.他们基本上调用Clear并逐个添加字符串.

您当然应该将代码放入实用程序方法中：

procedure ResizeStringList(List : TStrings; ANewSize: Integer);
begin
...
end;

或者您可以使用类助手使您的方法看起来是TStringList本身的一部分.

（编辑：李大同）

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