怎么动态删除LISTVIEW中的记录

Question

1.比如：一共有100条记录FOR I：= 1 TO 100 DO
BEGIN
  ls_caption := 当前记录的CAPTION;
  然后怎么从LISTVIEW中删除这条记录；
END；
2. 另一个问题FRO I := 1 to 100 do 
BEGIN
  .....
  .....
  .....
  IF FLAG THEN  跳出本次循环，执行INC（I）的循环；
  .....
  .....
END;

Answer 1

var I,J: Integer;J := 0;
FOR I：= 0 TO 100-1 DO
BEGIN
  ls_caption := 当前记录的CAPTION;
  IF Flag THEN //满足删除条件
    ListView.Items[J].Delete
  ELSE
    INC(J);
END；

Answer 2

我不知道对不对，我是这样做的，
一是，循环从大数向小数down
二是，把要删的项赋给一个listitem数组，然后另外删除。