Почему-то не сохраняются, и не загружаются иконки файлов. Пробовал сохранять поток тоже не выходит:
Код:
var
Writer : TWriter;
FileStream : TFileStream;
begin
if SaveDialog1.Execute then begin
FileStream:=TFileStream.Create(SaveDialog1.FileName,fmOpenWrite or fmCreate);
Writer := TWriter.Create(FileStream, SizeOf(ListView1));
Writer.WriteRootComponent(ListView1);
Writer.Free;
FileStream.Free;
Загрузка:
Код:
var
reader : TReader;
FileStream : TFileStream;
begin
if OpenDialog1.Execute then begin
FileStream:=TFileStream.Create(OpenDialog1.FileName,fmOpenread);
Reader := TReader.Create(FileStream, SizeOf(ListView1));
Reader.ReadRootComponent(ListView1);
Reader.Free;
FileStream.Free;