Хранение и изменение данных в файле

[fosiyepa]

Доброго дня форумчане!
Необходимо хранить и изменять данные из ListView в файле как это лучше сделать? (Чтобы после перезапуска программы все загрузилось опять в ListView)

например если в файле данные хранить вот так:

Caption | SubItems1 | SubItems2 | SubItems3 | SubItems3
Caption2 | SubItems1 | SubItems2 | SubItems3 | SubItems3
Caption3 | SubItems1 | SubItems2 | SubItems3 | SubItems3
Caption4 | SubItems1 | SubItems2 | SubItems3 | SubItems3

то как при изменении столбика в ListView изменять его и в файле?

[Stilet]

как это лучше сделать?

Записывать это в XML или DBF.

[Аватар]

Или просто в StringList. Проще не бывает

[fosiyepa]

Сообщение от Аватар

Или просто в StringList. Проще не бывает

это постоянно нужно будет файл перезаписывать?

[Аватар]

В зависимости от ценности информации. Если ценна и актуальна - то СУБД. Иначе и StringList или XML подойдет с чтением при старте программы и записью при выходе из неё. Хочешь каждый раз перезаписывай, если там не тыщи строк. Визуально разницы не заметишь, если небольшое количество строк

[fosiyepa]

Сообщение от Аватар

В зависимости от ценности информации. Если ценна и актуальна - то СУБД. Иначе и StringList или XML подойдет с чтением при старте программы и записью при выходе из неё. Хочешь каждый раз перезаписывай, если там не тыщи строк. Визуально разницы не заметишь, если небольшое количество строк

А файл можно постоянно не перезаписывать, например мне нужно изменить строку

Caption3 | SubItems1 | SubItems2 | SubItems3 | SubItems3

можно ее найти и изменить именно ее а не весь файл?

[Аватар]

Можно, если не поменялась длина перезаписываемого участка. Но так сильно сложней с файлом работать. А если уж длина стала больше, то ни как

[fosiyepa]

решил использовать tstringlist, возникла проблема с удалением:

Item := ListView1.Selected;
while Item <> nil do begin
ListView1.Items.Delete(Item.Index);
StringList.Delete(Item.Index);
Item := ListView1.GetNextItem(Item, sdAll, [isSelected]);
end;
SeriesList.SaveToFile('log');

получаю ошибку:

list index out of bounds -1

Не знаю почему но проблема решилась так:

Item := ListView1.Selected;
while Item <> nil do begin
a:=Item.Index; //Решение
ListView1.Items.Delete(a);
StringList.Delete(a);
Item := ListView1.GetNextItem(Item, sdAll, [isSelected]);
end;
SeriesList.SaveToFile('log');

Item := ListView1.Selected;
while Item <> nil do begin
a:=Item.Index; //Решение
ListView1.Items.Delete(a);
StringList.Delete(a);

for i:=0 to ListView4.Items.Count-1 do begin
if ListView4.Items[i].SubItems[3]=inttostr(a) then
ListView4.Items.Delete(i);
break;
end;

Item := ListView1.GetNextItem(Item, sdAll, [isSelected]);
end;
SeriesList.SaveToFile('log');

почему не работает удаление из ListView4?

[northener]

Удалять нужно в обратном цикле for downto

[Stilet]

Рекомендую такой цикл:

for i:=ListView4.Items.Count-1 downto 0 begin