Rod*_*ddy 7 delphi tstringlist
我经常发现我需要'调整'aa 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;
Run Code Online (Sandbox Code Playgroud)
是否有一种更为简单的方法可以忽略我做到这一点?
从实施情况来看TStringList.Assign
,没有更好的方法可以做到这一点.他们基本上Clear
是逐个调用和添加字符串.
您当然应该将代码放入实用程序方法中:
procedure ResizeStringList(List : TStrings; ANewSize: Integer);
begin
...
end;
Run Code Online (Sandbox Code Playgroud)
或者您可以使用类助手使您的方法看起来是TStringList
自己的一部分.
归档时间: |
|
查看次数: |
1538 次 |
最近记录: |