[Кодер]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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;

[Кодер]

Что, никто помочь не сможет?

[lmikle]

У тебя же есть сохранение в файл? Просто заного сохрани файл после удаления из ListView.

[Кодер]

У меня нету сохранения в файл..оно мне не требуется
Есть только добавить запись

[KOOL]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

if s=list_note.Items.Item[list_note.ItemIndex].SubItems.ValueFromIndex[1] then //надо if s=list_note.Items.Item[list_note.ItemIndex].SubItems.Strings[2]     begin     FileNote.Delete(i);     FileNote.Delete(i+1);//так нельзя делать     FileNote.Delete(i+2);//при удалении строки i строка i+1     FileNote.Delete(i+3);//становится на ее место. надо 5 раз     FileNote.Delete(i+4);//удалить строку i     end   else     begin     inc(i,5);//почему на 5???     end;

[Кодер]

5 потому как у меня структура базы такая:

date1
time1
name1
stat1
opis1
date2
time2
name2
stat2
opis2

проверяем только параметр date