listView的删除问题?

Question

var
  i,j: Integer;
  HnoStr: String;
begin
  for i:=0 to lvCheckoutHandNo.Items.Count -1 do
  begin
    if lvCheckoutHandNo.Items.Item[i].Checked then
    begin
      HnoStr:= Trim(lvCheckoutHandNo.Items.Item[i].Caption);
      for j:=lvCheckoutItem.Items.Count-1 downto 0 do
      begin
        if HnoStr = Trim(lvCheckoutItem.Items.Item[j].Caption) then
        begin
          lvCheckoutItem.Items.Item[j].Delete;
        end;
      end;
      lvCheckoutHandNo.Items.Item[i].Delete;
    end;
  end;
end;

Answer 1

var
i,j: Integer;
HnoStr: String;
begin
for i:=lvCheckoutHandNo.Items.Count -1 downto 0 do
begin
if lvCheckoutHandNo.Items.Item[i].Checked then
begin
HnoStr:= Trim(lvCheckoutHandNo.Items.Item[i].Caption);
for j:=lvCheckoutItem.Items.Count-1 downto 0 do
begin
if HnoStr = Trim(lvCheckoutItem.Items.Item[j].Caption) then
begin
lvCheckoutItem.Items.Item[j].Delete;
end;
end;
lvCheckoutHandNo.Items.Item[i].Delete;
end;
end;
end;