VPF::Как сохранить и загрузить содержимое компонента Li

Uragan

Дата 30.9.2006, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 29.10.2005

Репутация: нет
Всего: 0

Как сохранить и загрузить содержимое компонента ListView, метода SaveToFile и LoadFromFile, компонент не имеет.
Помогите пожалуйста! Заранее благодарен!
Пожалуйста прошу пример сохранения и загрузки!) smile

Snowy

Дата 30.9.2006, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Зато TFileStream имеет методы WriteComponent и ReadComponent.

Guedda

Дата 1.10.2006, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(Snowy @ 1.10.2006, 00:00

)

Зато TFileStream имеет методы WriteComponent и ReadComponent.

Вот интересно, а зачем сохранять весь компонент, если необходимо сохранить только данные?

--------------------

Ll 2

Alexeis

Дата 1.10.2006, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Guedda, WriteComponent как раз и сохранит только данные, точнее все то что в разделе published

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Quadr0

Дата 1.10.2006, 22:54 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 13:05

Uragan

Дата 4.10.2006, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 29.10.2005

Репутация: нет
Всего: 0

Я пробывал с помощью FileStream, но не разобрался и как с XML тоже не знаю!
Дайте пожалуйста примерчик.......... Буду очень благодарен!

ZBugz

Дата 5.10.2006, 09:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Код


{/////////////////////////////////////////Загрузить список///////////////////////////////////////////////}
procedure TMainForm.OpenListClick(Sender: TObject);
Var
s:string;
sp:TStringList;
i:integer;
begin
   if fileexists('имя файла') then
    begin
    Sp:=TStringList.Create;
    sp.LoadFromFile('имя файла');
    if sp.Count>0 then begin
      DList.Clear;
      for i:=0 to sp.Count-1 do begin
        s:=sp.Strings[i];
        DList.Items.Add.Caption:=copy(s,1,pos('*\*',s)-1);
        delete(s,1,pos('*\*',s)+2);
        while pos('*\*',s)<>0 do begin
          DList.Items[DList.Items.Count-1].SubItems.add(copy(s,1,pos('*\*',s)-1));
          delete(s,1,pos('*\*',s)+2);
        end;
        DList.Items[DList.Items.Count-1].SubItems.add(s);
      end;
    end;
    sp.Free;
  end;
 end;
end;

{/////////////////////////////////////////Сохранить список///////////////////////////////////////////////}
procedure TMainForm.SaveListClick(Sender: TObject);
Var
s: string;
sp: TStringList;
i, j:integer;
begin
   if DList.Items.Count>0 then begin
    sp:=TStringList.Create;
    for i:=0 to DList.Items.Count-1 do begin
      s:=DList.Items[i].Caption;
      for j:=0 to DList.Items[i].SubItems.Count-1 do
        s:=s+'*\*'+DList.Items[i].SubItems[j];
      sp.Add(s)
    end;
    sp.SaveToFile('Имя файла');
    sp.Free;
   end;
end;

DList - это ListView

Uragan

Дата 8.10.2006, 06:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 29.10.2005

Репутация: нет
Всего: 0

Спасибо огромное! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »