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

[min@y™]

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

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

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

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

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

Слыш, вася, ты комменты в своей же теме читаешь ващще?
Перестань заниматься этим онанизмом или, хотя бы, не занимайся им у всех на виду!

[xXxVasya]

<формат XML>

Может действительно на этом формате нужно, но как бы все для txt сделано,
думаю довести до необходимой истины txt.

Если имеется качественный алгоритм для XML поделитесь.

[Alex11223]

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

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

Мне JSON часто нравится, его вроде и в Дельфи завезли уже давно.
Еще YAML удобно читать людям + больше фич, чем JSON, но с поддержкой/библиотеками хуже.

[min@y™]

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

Если имеется качественный алгоритм для XML поделитесь.

Бери компонент готовый (хороший, а не TXMLDocument) и юзай, хорош велосипеды изобретать. И перестань хранить данные в визуальных компонентах, маньяк!

23-04-41.png

2одмен: запили вставку картинок из буфера, как у нормальных людей. А то как в каменном веке - 20 тычков мышой в разные места, ну ёмаё...

[Aliens_wolfs]

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

[xXxVasya]

Я понял в чем фенька.

Если кому-то на будущее интересен ANCI cod then:

line str:= LV.Items.Item[i].Caption;
to line str:= Trim ( LV.Items[i].Caption );

and very nice.

Good luck.

procedure LV_InTxt(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:= Trim ( LV.Items[i].Caption );

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

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

[Alex11223]

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

ANCI cod

What's that?

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

LV_InTxt

This name sucks.
Use verbs, like SaveLV, LoadLV.

[xXxVasya]

Задумался )), не ANCI а ANSI coding.

Good luck.

[Alex11223]

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

ANSI coding

ODuH XPeH He||OH9|THO.