[Кодер]

list_note(TListView) - список заданий, где значение 3 столбца=названию задания

Требуется удалить из файла строку которая совпадает с названием задания, а также еще 4 следующие строки.

Код:

procedure Tfrm_main.btn_deletenoteClick(Sender: TObject);
var
i:integer;s:string;
FileNote:TStringList;
begin
FileNote:=TStringList.Create;
FileNote.LoadFromFile('note.ejd');
{Удаляем из списка}
list_note.DeleteSelected;
{Удаляем из файла}
i:=0;
while i<>Filenote.Count-4 do
  begin
  s:=String(' '+Filenote.Strings[i]);
  if s=list_note.Items.Item[list_note.ItemIndex].SubItems.ValueFromIndex[1] then
    begin
    FileNote.Delete(i);
    FileNote.Delete(i+1);
    FileNote.Delete(i+2);
    FileNote.Delete(i+3);
    FileNote.Delete(i+4);
    end
  else
    begin
    inc(i,5);
    end;
    FileNote.Free;
  end;
end;