Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.017 c
1-12432
Pavelius
2004-02-23 14:08
2004.03.05
Алгоритм распознавания штрихкодов


1-12364
VolanD2002
2004-02-25 12:51
2004.03.05
Перве три символа из строки.


1-12336
OlimPer
2004-02-21 14:36
2004.03.05
Опять ShellLIstView


6-12466
zig
2003-12-29 10:35
2004.03.05
Особеннсть метода Socket.SendText


8-12463
Sodven
2003-11-03 19:34
2004.03.05
GDI+ в Delphi