<!--CodeS-->
var
Index: Integer;
begin
ListView1.Items.BeginUpdate;
try
for Index := ListView1.Items.Count - 1 downto 0 do
begin
if ListView1.Items[Index].Caption <> '1' then
ListView1.Items.Delete(Index);
end;
finally
ListView1.Items.EndUpdate;
end;
end;
<!--CodeE-->
아래와 같이 해보세요...
<!--CodeS-->
var
Index: Integer;
begin
ListView1.Items.BeginUpdate;
try
for Index := ListView1.Items.Count - 1 downto 0 do
begin
if ListView1.Items[Index].Caption <> '1' then
ListView1.Items.Delete(Index);
end;
finally
ListView1.Items.EndUpdate;
end;
end;
<!--CodeE-->
^^ 항상 즐코하세요...