[Alegun]

Сообщение от Corwin13

...не сохраняются, и не загружаются иконки файлов...

И не будут - при загрузке ListView "подсовывается" пустой ImageList, иконок там нет и нечего грузить. Чтоб это исправить, замените в своём коде процедуры сохранения\загрузки на эти

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
  i: integer;
begin
  FStr:= TFileStream.Create('c:\ImageList1.sav', fmCreate);
  MemStr:= TMemoryStream.Create;
  MemStr.WriteComponent(ImageList1);
  MemStr.Position:= 0;
  ObjectBinaryToText(MemStr, FStr);
  MemStr.Free;
  FStr.Free;

  SaveListViewToFile1(ListView1, 'C:\1.sav');
 ListBox1.Items.SaveToFile('c:\lisbox.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);

var
  FStr: TFileStream;
  MemStr: TMemoryStream;
ListItem: TListItem;
begin

    FStr:= TFileStream.Create('c:\ImageList1.sav', fmOpenRead);
    MemStr:= TMemoryStream.Create;
    ObjectTextToBinary(FStr, MemStr);
    MemStr.Position:= 0;
    MemStr.ReadComponent(ImageList1);
    MemStr.Free;
    FStr.Free;

   ListView1.SmallImages:= ImageList1;
ListView1.Items.BeginUpdate;
LoadListViewToFile1(ListView1, 'C:\1.sav');
ListBox1.Items.LoadFromFile('c:\lisbox.txt');
ListView1.Items.EndUpdate;
 end;

замечание - файлов сохранения становится всё больше и хранить их, наверное, лучше в отдельной папке.