Удаление срабатывает визуально, но при сохранении и загрузке (ini) как будто удаления не было.
Удаление:
j:=0;
For i := 0 to ListView1.Items.Count-1 do begin
if ListView1.Items[i].SubItems[j]='' then
ListView1.Items.Item[i].Delete;
end;
Сохранение:
var
Ini: Tinifile;
ListItem: TListItem;
i: integer;
n: String;
begin
Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\file.ini');
for i:= 0 to ListView1.Items.Count -1 do
begin
listitem := ListView1.Items[i];
n := 'l' + IntToStr(i) + '.';
Ini.WriteString('Section', n + '#',listitem.Caption);
Ini.WriteString('Section', n + 'Столбик 2',listitem.SubItems.Strings[0]);
Ini.WriteString('Section', n + 'Столбик 3',listitem.SubItems.Strings[1]);
Ini.WriteString('Section', n + 'Столбик 4',listitem.SubItems.Strings[2]);
Ini.WriteString('Section', n + 'Столбик 5',listitem.SubItems.Strings[3]);
Ini.WriteString('Section', n + 'Столбик 6',listitem.SubItems.Strings[4]);
end;
Ini.Free;
end;