Текущий архив: 2005.09.04;
Скачать: CL | DM;

Вниз

TListView | загрузка и сохранение   Найти похожие ветки 

← →
.ruslan ©   (2005-08-10 22:32) [0]

Здравствуйте!
Подскажите пожалуйста, как сохранить содержимое компонента TListView в файл, и загрузить из файла в компонент. Если не сложно помогите...

---

← →
Defunct ©   (2005-08-10 22:35) [1]

for i := 0 to LV.Items.Count do
   begin
      < сохраняем >
   end

while not Eof( F ) do
  begin
    LI := LV.Items.Add;
    < загружаем очередной LI>
  end;

?

---

← →
.ruslan ©   (2005-08-10 23:18) [2]

ээ.. всё бы прекрасно, но дело в том, что я начинающий в Delphi, и этот пример вреде как не покатит :(

---

← →
Наиль ©   (2005-08-10 23:19) [3]

Я тоже всегда ошибаюсь в этом месте
for i := 0 to LV.Items.Count-1 do

---

← →
Defunct ©   (2005-08-11 00:49) [4]

Наиль ©   (10.08.05 23:19) [3]

хехе ;>

> .ruslan ©   (10.08.05 23:18) [2]
В общем-то, рабочий пример написать не сложно. Но только, SubItems вы будете сохранять и восстанавливать самостоятельно по аналогии.

procedure SaveListViewToFile( const AListView: TListView; const AFileName: String);
var
  i : integer;
begin
  if AListView.Items.Count = 0 then exit;

  with TStringList.Create do
  try
     for i := 0 to AListView.Items.Count - 1 do
     begin
        Add( AListView.Items[i].Caption );
     end;
     SaveToFile( AFileName )
  finally
     free
  end
end;

procedure LoadListViewFromFile( const AListView: TListView; const AFileName: String);
var
  i : integer;
begin
  AListView.Items.Clear;
  if not FileExists( AFileName ) then exit;

  with TStringList.Create do
  try
     LoadFromFile( AFileName );

     for i := 0 to Count - 1 do
     begin
        AListView.Items.Add.Caption := Strings[i];
     end;

  finally
     free
  end
end;

пример использования:

  SaveListViewToFile( ListView1, "c:\lv.txt" );
  LoadListViewFromFile( ListView1, "c:\lv.txt" );

---

← →
Наиль ©   (2005-08-11 00:56) [5]

C сохранением SubItems
    begin
       Add( AListView.Items[i].Caption );
       Add( AListView.Items[i].SubItems.CommaText );
    end;
    ...
   for i := 0 to Count - 1 do
    With AListView.Items.Add do begin
       Caption := Strings[i*2];
       SubItems.CommaText:=Strings[i*2+1];
    end;

---

← →
.ruslan ©   (2005-08-11 11:04) [6]

...
if AListView.Items.Count = 0 then exit;
...

вот на этой строку происходит ошибка Statement expected, but expression of type "TAction" found

---

← →
.ruslan ©   (2005-08-11 11:06) [7]

Наиль ©, созраняет только первый столбец, как же быть с остальными?

---

← →
Defunct ©   (2005-08-11 11:13) [8]

.ruslan ©   (11.08.05 11:04) [6]

> but expression of type "TAction" found

А что вы ему скармливаете?
С TListView код проверен.

---

← →
begin...end ©   (2005-08-11 11:15) [9]

> Defunct ©   (11.08.05 00:49) [4]

> const AListView: TListView

Это зачем так?

---

← →
.ruslan ©   (2005-08-11 11:27) [10]

Все сохраняет, буду разбираться с загрузкой...

---

← →
.ruslan ©   (2005-08-11 13:26) [11]

Все сделал, всем спасибо!

---

Страницы: 1 вся ветка

Текущий архив: 2005.09.04;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.039 c