Главная страница
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.024 c
4-1089035708
sergeii
2004-07-05 17:55
2004.08.22
как hwnd можно узнать?


1-1091419327
SPeller
2004-08-02 08:02
2004.08.22
Свойство с необязательным индексом


14-1091620589
Максим
2004-08-04 15:56
2004.08.22
License error


1-1092048403
GuAV
2004-08-09 14:46
2004.08.22
Как вызвать из asm-кода опр-ную функцию из нескольких overloaded?


4-1089495562
_Stalker_
2004-07-11 01:39
2004.08.22
Путь к программе