Главная страница
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.014 c
7-12560
XHunter
2003-10-29 21:31
2004.03.05
Шифрация/Дешифрация файлов


1-12380
Laymer
2004-02-25 07:45
2004.03.05
Числа с плавующей запятой.


6-12470
ALEIIIKA
2003-12-29 10:17
2004.03.05
Как на сервер отправить запрос?


3-12276
Unknown
2004-02-08 12:18
2004.03.05
База данных без BDE?


11-12303
Kirill
2003-06-10 15:50
2004.03.05
DBF и KOL