Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

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

 
Ivolg   (2004-08-06 09:54) [0]

Всем привет! У меня один вопрос. Как можно сохранить содержимое ListView в файл, и потом с него считать?.СПАСИБО!!!!


 
TUser ©   (2004-08-06 10:32) [1]

assignfile, rewrite, writeln, reset, readln, blockread, blockwrite, filestream, Items.Count, Caption, data ect.
Кокрентно - важно знать, что и куда ты сохраняешь, например, надо ли сохранять стиль (list, report и пр.) Кода здесь тебе никто не напишет.


 
Digitman ©   (2004-08-06 10:37) [2]

var
 fs: TFileStream;
 s: String;
 li : TListItem;
 ic, i, j, l, si: Integer;
..

//сохранение

with ListView do
begin
ic := Items.Count;
fs.WriteBuffer(ic, sizeof(ic));
for i:= 0 to ic - 1 do
 begin
  li := Items[i];
  s := li.Caption;
  l := Length(s);
  fs.WriteBuffer(l, sizeof(l));
  fs.WriteBuffer(PChar(s)^, l);
  si := SubItems.Count;
  fs.WriteBuffer(si, sizeof(si));
  for j := 0 to si - 1 do
   begin
    s := li.SubItems[j];
    l := Length(s);
    fs.WriteBuffer(l, sizeof(l));
    fs.WriteBuffer(PChar(s)^, l);
   end;
 end;
end;

//восстановление

with ListView do
begin
Items.Clear;
fs.ReadBuffer(ic, sizeof(ic));
for i:= 0 to ic - 1 do
 begin
  fs.ReadBuffer(l, sizeof(l));
  Setlength(s, l);
  fs.ReadBuffer(PChar(s)^, l);
  li := Items.Add;
  li.Caption := s;
  fs.ReadBuffer(si, sizeof(si));
  for j := 0 to si - 1 do
   begin
    fs.ReadBuffer(l, sizeof(l));
    Setlength(s, l);
    fs.ReadBuffer(PChar(s)^, l);
    li.SubItems.Add(s);
   end;
 end;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.053 c
9-1084040639
Дикс
2004-05-08 22:23
2004.08.22
OnTop


9-1083338063
Pirate
2004-04-30 19:14
2004.08.22
ДВИЖОК


14-1090834103
Vlad Oshin
2004-07-26 13:28
2004.08.22
Позвоните им..


1-1091787198
массив
2004-08-06 14:13
2004.08.22
массив


9-1083603796
Bim
2004-05-03 21:03
2004.08.22
Как передать управление процедуре?