Сохранение содержимого TListView

← →
.ruslan © (2006-05-24 10:42) [0]

Добрый день, уважаемые!
В общем у меня стоит компонент TListView, его содержимое я сохранить смог, да и загружается всё нормально, всё работает, но: не сохраняются checkbox’ы а итемах, как быть, подскажите, если не сложно.

Вот код сохранения который я использую:
… var Writer : TWriter; FileStream : TFileStream; begin FileStream:=TFileStream.Create(extractfilepath(application.ExeName)+ "\base.ini",fmOpenWrite or fmCreate); Writer := TWriter.Create(FileStream, SizeOf(ListView1)); Writer.WriteRootComponent(ListView1); Writer.Free; FileStream.Free; …

← →
Сергей М. © (2006-05-24 10:48) [1]

> SizeOf(ListView1)

всегда = 4, хоть это к делу и не относится

← →
.ruslan © (2006-05-24 10:50) [2]

в каком смысле, можно подробнее?

← →
Сергей М. © (2006-05-24 10:55) [3]

в самом что ни на есть простом : ListView1 - это указатель, а размер указателя равен четырем байтам.

← →
.ruslan © (2006-05-24 10:56) [4]

> в самом что ни на есть простом : ListView1 - это указатель,
> а размер указателя равен четырем байтам.

Ну реально ли сделать сохранение чекбоксов?

← →
Сергей М. © (2006-05-24 11:02) [5]

А вот это - к делу:

var
FileStream : TFileStream;
Flag: Boolean;
begin
FileStream:=TFileStream.Create(...);
try
FileStream.WriteComponent(ListView1);
for i := 0 to ListView1.Items.Count - 1 do begin
Flag := ListView1.Items[i].Checked;
FileStream.WriteBuffer(Flag, SizeOfFlag);
end;
finally
FileStream.Free;
end;
..
FileStream:=TFileStream.Create(...);
try
FileStream.WriteComponent(ListView1);
for i := 0 to ListView1.Items.Count - 1 do begin
FileStream.ReadBuffer(Flag, SizeOfFlag);
ListView1.Items[i].Checked := Flag;
end;
finally
FileStream.Free;
end;

← →
Сергей М. © (2006-05-24 11:03) [6]

> FileStream:=TFileStream.Create(...);
> try
> FileStream.ReadComponent(ListView1);
> for i := 0 to ListView1.Items.Count - 1 do begin
> FileStream.ReadBuffer(Flag, SizeOfFlag);
> ListView1.Items[i].Checked := Flag;
> end;
> finally
> FileStream.Free;
> end;

← →
.ruslan © (2006-05-24 11:13) [7]

[Error] Unit1.pas(192): Undeclared identifier: "SizeOfFlag"

← →
Сергей М. © (2006-05-24 11:15) [8]

SizeOf(Flag)

неужто так сложно домыслить ?

← →
.ruslan © (2006-05-24 11:27) [9]

Сергей, извините, но что-то ругается на цикле "Stream read error"

← →
Сергей М. © (2006-05-24 11:30) [10]

Приводи свой вариант кода ..

← →
.ruslan © (2006-05-24 11:32) [11]

procedure TMAIN.FormCreate(Sender: TObject); var FileStream:TFileStream; Flag:Boolean; i:integer; begin FileStream:=TFileStream.Create(extractfilepath(application.ExeName)+ "\base.ini",fmOpenRead or fmCreate); try FileStream.ReadComponent(ListView1); for i:=0 to ListView1.Items.Count-1 do begin FileStream.ReadBuffer(Flag, SizeOf(Flag)); ListView1.Items[i].Checked:=Flag; end; finally FileStream.Free; end; end;

← →
Сергей М. © (2006-05-24 11:37) [12]

> .ruslan © (24.05.06 11:32) [11]

var
FileStream : TFileStream;
Flag: Boolean;

//этот код для записи компонента в поток
FileStream:=TFileStream.Create(...);
try
FileStream.WriteComponent(ListView1);
for i := 0 to ListView1.Items.Count - 1 do begin
Flag := ListView1.Items[i].Checked;
FileStream.WriteBuffer(Flag, SizeOfFlag);
end;
finally
FileStream.Free;
end;
..

//а этот код для последующего чтения компонента из потока
FileStream:=TFileStream.Create(...);
try
FileStream.ReadComponent(ListView1);
for i := 0 to ListView1.Items.Count - 1 do begin
FileStream.ReadBuffer(Flag, SizeOfFlag);
ListView1.Items[i].Checked := Flag;
end;
finally
FileStream.Free;
end;

всё равно ругается :(

Приводи полный код - код записи комонента и код считывания, с учетом добавленных из моего примера циклов

запись:
procedure TMAIN.FormClose(Sender: TObject; var Action: TCloseAction); var FileStream:TFileStream; Flag:Boolean; i:integer; begin FileStream:=TFileStream.Create(extractfilepath(application.ExeName)+ "\data.dat",fmOpenWrite or fmCreate); try FileStream.WriteComponent(ListView1); for i := 0 to ListView1.Items.Count - 1 do begin Flag := ListView1.Items[i].Checked; FileStream.WriteBuffer(Flag, SizeOf(Flag)); end; finally FileStream.Free; end; end;

чтение:
procedure TMAIN.FormCreate(Sender: TObject); var FileStream:TFileStream; Flag:Boolean; i:integer; begin FileStream:=TFileStream.Create(extractfilepath(application.ExeName)+ "\data.dat",fmOpenRead or fmCreate); try FileStream.ReadComponent(ListView1); for i := 0 to ListView1.Items.Count - 1 do begin FileStream.ReadBuffer(Flag, SizeOf(Flag)); ListView1.Items[i].Checked := Flag; end; finally FileStream.Free; end; end;

> чтение:
> procedure TMAIN.FormCreate(Sender: TObject);
> var
> FileStream:TFileStream;
> Flag:Boolean;
> i:integer;
> begin
> FileStream:=TFileStream.Create(extractfilepath(application.
> ExeName)+ "\data.dat",fmOpenRead); // or fmCreate - это не нужно
> try
> FileStream.ReadComponent(ListView1);
> for i := 0 to ListView1.Items.Count - 1 do begin
> FileStream.ReadBuffer(Flag, SizeOf(Flag));
> ListView1.Items[i].Checked := Flag;
> end;
> finally
> FileStream.Free;
> end;
> end;
>

И на какой строчке теперь "ругается" ?

ВСЁ РАБОТАЕТ!

Огромное спасибо, Сергей!

Сохранение содержимого TListView Найти похожие ветки