若Stringlist对象sl有100条，既sl.count=100,请问如何将sl在50条以后的记录删除，使其sl.count=50

Question

同上

Answer 1

procedure TForm1.DelLine(Var StrList:TStringList);
begin
  while StrList.Count >=50 do
  begin
       StrList.Delete(StrList.Count-1);
  end;
end;

Answer 2

for i := s1.count - 1 downto 50 do
  s1.Delete(i);

Answer 3

linzi(林子)的方法是上面最好的,那敢问楼主,是不是你对算法有什么要求?
傻是傻,能解决问题就可以了.要不这种问题都问才是傻呢.

Answer 4

不知道能是否可行的!
DELETE Top 50 * FROM Table1 WHERE 字段1 NOT IN (SELECT Top 50 字段1 FROM Table1)

Answer 5

找到第50个，记录下串的名字，然后，在 sl.text 中查找该串，找到后，用字符串的方法删除后面的部分

Answer 6

dy_paradise(小耳朵) ,能把过程写下来吗