Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c