Скачать: CL | DM;

ListView   Найти похожие ветки 

← →
Asd   (2004-02-25 16:15) [0]

Подскажите пожалуйста как сохранить содержимое Listview в файл а потом загрузить из файла (Стиль vsReport)
PS в Listview отобрадается только текст в 2 столбцах

---

← →
Palladin ©   (2004-02-25 16:20) [1]

сохранение и заргрузка данных пишется в ручную

---

← →
Digitman ©   (2004-02-25 16:29) [2]

см. TStream.Write/ReadComponent

---

← →
Asd   (2004-02-25 16:37) [3]

А может есть у кого-нибудь какой-нибудь пример на эту тему или ссылка.

---

← →
Digitman ©   (2004-02-25 16:40) [4]

> Asd (25.02.04 16:37) [3]


что непонятно ?

---

← →
Asd ©   (2004-02-25 16:47) [5]

Я сохраняю так:

Var lCurrent: TStringList;

procedure TfmObjEditor.SaveCurrentList;
var i: integer;
begin
lCurrent.Clear;
for i := 0 to List.Items.Count-1 do
with List.Items[i] do
lCurrent.Add(Caption + "=" + SubItems.Text);
end;

procedure Form1.OnClose(Sender:TObject);
begin
LCurrent.SaveToFile("List.txt");
end;

А как загрузить не получается

---

← →
Palladin ©   (2004-02-25 17:01) [6]

А сохранять так что бы загрузить потом можно было не пробовал?

procedure SaveListViewStrings(p_cListView:TListView; const p_strFileName:string);
var
i:integer;
begin
with TStringList.Create do
try
for i:=0 to p_cListView.Items.Count-1 do
Add(p_cListView.Items[i].Caption+#9+p_cListView.Items[i].SubItems.CommaText);
SaveToFile(p_strFileName);
finally
Free;
end;
end;

procedure LoadListViewStrings(p_cListView:TListView; const p_strFileName:string);
begin
with TStringList.Create do
try
p_cListView.Clear;
loadfromfile(p_strFileName);
while Count>0 do
begin
with p_cListView.Items.Add do
begin
Caption:=Copy(Strings[0],1,Pos(#9,Strings[0])-1);
SubItems.CommaText:=Copy(Strings[0],Pos(#9,Strings[0])+1,Length(Strings[0]));
end;
Delete(0);
end;
finally
free;
end;
end;

---

← →
Asd ©   (2004-02-25 17:06) [7]

Спасибо большое щас попробую

---

← →
Digitman ©   (2004-02-25 17:07) [8]

> Asd © (25.02.04 16:47) [5]


var
Stream: TMemoryStream;
...

сохраняем :
Stream.WriteComponent(ListView);
Stream.SaveToFile(..)

восстанавливаем:
Stream.LoadFromFile(..)
Stream.ReadComponent(ListView);

делов-то)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c