Сохранение данных с 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

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

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

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

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

Код

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

@Myrus · 09.04.2019, 12:18

Delphi

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()
надо их и использовать

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

@qwertehok 5085 / 4099 / 1026 Регистрация: 29.08.2013 Сообщений: 25,983 Записей в блоге: 3
	09.04.2019, 14:14	10
	у StringList есть SaveToFile() и LoadFromFile() надо их и использовать 0

@LeadSD 4 / 4 / 0 Регистрация: 08.11.2012 Сообщений: 106
		1
	Сохранение данных с ListView в .txt и загрузка с .txt 18.05.2013, 23:43. Показов 7463. Ответов 10 Метки нет (Все метки) Сохранение данных с ListView в .txt и загрузка с .txt Помогите. 0

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

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

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

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

@Caspar Fray 0 / 0 / 1 Регистрация: 15.10.2013 Сообщений: 7
	20.01.2014, 16:47	8
	Уважаемые...тема не актуальна, но может кто ответит... Как из этого кода теперь запускать ярлыки программно? Метод шелл не приводит к желаемому результату Код ShellExecute(Application.MainForm.Handle,'Open',PChar(ListView1.Selected.SubItems[0]),Nil,Nil,SW_SHOW); 0

@Myrus 0 / 0 / 0 Регистрация: 27.03.2015 Сообщений: 139
	09.04.2019, 14:16	11
	Сообщение от qwertehok у StringList есть SaveToFile() и LoadFromFile() надо их и использовать Понял, спасибо. Сейчас буду разбираться в этом направлении. 0

Опции темы