Сохранение данных с ListView в .txt и загрузка с .txt

@LeadSD · Регистрация: 08.11.2012

Студворк — интернет-сервис помощи студентам

Сохранение данных с ListView в .txt и загрузка с .txt
Помогите.

18.05.2013, 23:51

Загрузи в StringList и раскидывай строки в Caption и SubItem по разделителю. Сохранение - обратный процесс. Собираем данные в строки, добавляем в StringList, сохраняем.

@LeadSD · 18.05.2013, 23:55 **[ТС]**

Можно пример пожалуйста ?

19.05.2013, 00:16

Сохранить в текстовый файл

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  I, J : Integer;
  F : TextFile;
  S : String;
begin
  AssignFile(F, '123.txt');
  Rewrite(F);
  for I := 0 to LV.Items.Count - 1 do
  begin
    S := LV.Items.Item[I].Caption + ',';
    for J := 0 to LV.Items.Item[I].SubItems.Count - 1 do
      S := S + LV.Items.Item[I].SubItems.Strings[J] + ',';
    SetLength(S, Length(S) - 1);  
    WriteLn(F, S);
  end;
  CloseFile(F);
end;

@LeadSD · 19.05.2013, 00:31 **[ТС]**

А загрузить ?

19.05.2013, 00:38

Грузим

Delphi
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
var
  I  : Integer;
  F  : TextFile;
  S  : String;
  sl : TStringList;
  ListItem : TListItem;
begin
  if FileExists('123.txt') then
  begin
    sl := TStringList.Create;
    sl.Delimiter := ',';
    AssignFile(F, '123.txt');
    Reset(F);
    while not Eof(F) do
    begin
      ReadLn(F, S);
      sl.DelimitedText := S;
      ListItem := LV.Items.Add;
      ListItem.Caption := sl.Strings[0];
      for I := 1 to sl.Count - 1 do
        ListItem.SubItems.Add(sl.Strings[I]);
    end;
    sl.Free;
    CloseFile(F);
  end;
end;

@LeadSD · 19.05.2013, 00:41 **[ТС]**

Большое спасибо !!!

@Caspar Fray · 20.01.2014, 16:47

Уважаемые...тема не актуальна, но может кто ответит...
Как из этого кода теперь запускать ярлыки программно?

Метод шелл не приводит к желаемому результату

Code
1
ShellExecute(Application.MainForm.Handle,'Open',PChar(ListView1.Selected.SubItems[0]),Nil,Nil,SW_SHOW);

@Myrus · 09.04.2019, 12:18

Delphi
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
var
  I  : Integer;
  F  : TextFile;
  S  : String;
  sl : TStringList;
  ListItem : TListItem;
begin
  if FileExists('123.txt') then
  begin
    sl := TStringList.Create;
    sl.Delimiter := ',';
    AssignFile(F, '123.txt');
    Reset(F);
    while not Eof(F) do
    begin
      ReadLn(F, S);
      sl.DelimitedText := S;
      ListItem := LV.Items.Add;
      ListItem.Caption := sl.Strings[0];
      for I := 1 to sl.Count - 1 do
        ListItem.SubItems.Add(sl.Strings[I]);
    end;
    sl.Free;
    CloseFile(F);
  end;
end;

Проверил вот это код для загрузки. Если между слова есть пробел, то загружает все до пробела.
Т.е. в файла сохранено вот так:
1,Яблочный сок
2,Вишня
3,Слива

Я по факту грузит только Яблочный во второй столбец.

Подскажите пожалуйста как исправить проблему ?

@qwertehok · 09.04.2019, 14:14

у StringList есть SaveToFile() и LoadFromFile()
надо их и использовать

@Myrus · 09.04.2019, 14:16

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

у StringList есть SaveToFile() и LoadFromFile()
надо их и использовать

Понял, спасибо. Сейчас буду разбираться в этом направлении.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@LeadSD 4 / 4 / 0 Регистрация: 08.11.2012 Сообщений: 106

	Сохранение данных с ListView в .txt и загрузка с .txt 18.05.2013, 23:43. Показов 8538. Ответов 10 Метки нет (Все метки) Сохранение данных с ListView в .txt и загрузка с .txt Помогите. 0

angstrom
	18.05.2013, 23:51
	Загрузи в StringList и раскидывай строки в Caption и SubItem по разделителю. Сохранение - обратный процесс. Собираем данные в строки, добавляем в StringList, сохраняем.

@LeadSD 4 / 4 / 0 Регистрация: 08.11.2012 Сообщений: 106
	18.05.2013, 23:55 [ТС]
	Можно пример пожалуйста ? 0

@LeadSD 4 / 4 / 0 Регистрация: 08.11.2012 Сообщений: 106
	19.05.2013, 00:31 [ТС]
	А загрузить ? 0

@LeadSD 4 / 4 / 0 Регистрация: 08.11.2012 Сообщений: 106
	19.05.2013, 00:41 [ТС]
	Большое спасибо !!! 0

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	09.04.2019, 14:14
	у StringList есть SaveToFile() и LoadFromFile() надо их и использовать 0