Главная страница
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.016 c
8-12461
Rog
2003-11-01 08:11
2004.03.05
недостаточно ресурсов для обработки команды


1-12399
Alex_DM
2004-02-24 17:18
2004.03.05
Неукротимое окно???


9-12226
Norlin
2003-08-17 19:43
2004.03.05
Как работать с векторами?


1-12314
Nimble
2004-02-25 17:20
2004.03.05
Создание своих компонентов


3-12258
EugenePichugin
2004-02-09 10:15
2004.03.05
Исключение при выходе их программы.