корректное сохранение ListView в txt файл

[xXxVasya]

Здравствуйте, у меня вопрос как правильно не подвергать принудительно-программному разделению
ListView1.Items.Item[i].Caption от
ListView1.Items.Item[i].SubItems[j].

Код текста:

procedure LV_InTxtFile(LV: TListView; const DFile: string);
var
f: TextFile;
i,j: Integer;
str: String;
begin
AssignFile(f, DFile);
Rewrite(f);

for i := 0 to LV.Items.Count-1 do
begin
str:= LV.Items.Item[i].Caption;

for j:= 0 to LV.Columns.Count-2 do
str:= str + ';' + LV.Items.Item[i].SubItems[j] ;

WriteLn(f, str);
end;
CloseFile(f);
end;


// LV_InTxtFile(ListView1, 'resorse.txt');

``````````````````````````````````` ````````````````````````

в resorse.txt:

resorse1
;1; ...
resorse2
;1; ...
...



а мне надо так:

в resorse.txt:

resorse1;1; ...
resorse2;1; ...
...

и по возможности подскажите корректную загрузку из корректного txt файла

заранее благодарен.

[Аватар]

А зачем в конец Caption засунул символ перевода строки и/или возврата каретки?

[xXxVasya]

<зачем в конец Caption засунул символ перевода строки?>

Как я только не менял,
если вы имеете в виду строку:

Write(f, str);
// WriteLn(f, str);

тут возникает error (OnClose Self f.):

er.jpg

[Аватар]

нет, имеется ввиду, что при формировании данных в листвью зачем-то в Caption текст засунут с управляющими символами

[xXxVasya]

1. с 1й по конечную строку с присутствием значения

for i := 0 to LV.Items.Count-1 do
begin
str:= LV.Items.Item[i].Caption;

2. в которой, если присутствуют ячейки таблицы, тогда добавить к ней (текущей)

for j:= 0 to LV.Columns.Count-2 do
str:= str + ';' + LV.Items.Item[i].SubItems[j] ;

Вроде все правильно, а чо-то не то.

[Aliens_wolfs]

Я как то использовал вот такой вариант для сохранения и загрузки ListView
Сохраняет все параметры очень удобно если не хотите заморачиватся с сохранением дынных.

//Сохранить
procedure TForm1.Button1Click(Sender: TObject);
var
f: TFileStream;
begin
  f := TFileStream.Create('ListView.res', fmcreate);
  f.WriteComponent(ListView1);
  f.Free;
end;

//Загрузить
procedure TForm1.Button2Click(Sender: TObject);
var
f: TFileStream;
begin
  f := TFileStream.Create('ListView.res', fmOpenRead);
  f.ReadComponent(ListView1);
  f.Free;
end;

[min@y™]

Сообщение от Aliens_wolfs

Сохраняет все параметры очень удобно

Особенно эти удобства ощущаются при изменении структуры данных. гыгыгы

-----------------------
Не надо хранить данные в визуальном компоненте! Ну чо вы как школота из таёжной деревни?!!!

[Alex11223]

Сообщение от min@y™

Особенно эти удобства ощущаются при изменении структуры данных.

Да и читать/писать программами на других ЯП тоже удобно.

[min@y™]

Сообщение от Alex11223

Да и читать/писать программами на других ЯП тоже удобно.

----------------------
Обожаю для таких целей юзать абсолютно независимый ни от чего формат XML.
Отчаянно и неистово рекомендую!

[xXxVasya]

Я в google по приколнее матюки надыбал:

``````````````````````````````````` ``````````````
to File
WriteComponentResFile('lv.txt', ListView1);

with File
ReadComponentResFile('lv.txt', ListView1);

``````````````````````````````````` ``````````````
а мне надо, чтобы в файле, после его " появления ",
информация соответствовала " идентичности в своей натуре " ))