Question

delphi tstringlist 删去前100行

tmp:tstrintlist
tmp 里面有若干行数据。我需要删去里面前100行，如何实现？希望有效率高点的算法

Answer 1

执行100次删除即可！
(i,count:integer;)
count:=tmp.Count;
if Count>100 then Count:=100 ;
for i:=0 to count-1 do
tmp.Delete(0);

说明：tmp.delete(0);删除第一个数据，每次循环删除第一个数据依次删除100次即可，count变量是防止数据条数不足100时产生索引溢出错误的。
如果需要效率高，那就不要使用Tstringlist ，可以使用指针数组或Tlist。

Answer 2

ArrList:TstringList;
Var
i:integer;
begin
For i:=0 to 99 do
ArrList.Delete[i];
end;