Главная страница
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.034 c
3-1090852329
guest_Dmitry
2004-07-26 18:32
2004.08.22
Как избавиться от длительной блокировки записи?


3-1091024994
MORA
2004-07-28 18:29
2004.08.22
корректно ли я использую транзакции?


1-1092006328
dmk
2004-08-09 03:05
2004.08.22
SetBounds на весь экран


1-1092068406
Кристина
2004-08-09 20:20
2004.08.22
как отловить нажатие кнопки


3-1091415001
r00t
2004-08-02 06:50
2004.08.22
Data Type в XML Table