Моя база. Исходник, продолжение темы "сохранение разнородной Опции

[AlienEmperor]

Привет всем! Спасибо, что откликнулись! 2Volvo: я скину исходники в эту тему, вдруг кому-нибудь еще пригодятся. Извините за большой размер архива, просто мне очень хотелось скинуть сюда exe'шник и тестовую запись. В общем, распаковываете в отдельную папку, сохраняя структуру каталогов (т.е. в папке с программой должна быть папка DATA, содержащая тестовую базу. Далее файл\открыть\DATA\Base2t.dgr

Не все пункты меню работают (нет справки, настроек интерфейса и т.д.).
Все исходники - там же. Если у кого-то возникнуть идеи по совершенствованию кода (а тем более принципа) - буду очень рад их выслушать...

P.S. архив самораспаковывающийся - просто переименуйте файл в exe

[hiv]

Переписал функцию сохранения файла с картинками. Так красивее, понятнее и быстрее:

Procedure TPics.SaveToFile(FileName:String);
 Var FS: TFileStream;
     MS: TMemoryStream;
     TmpCount: Word;
     PicOffset: Integer;
     I: Word;
 Begin
   If Changed = False Then Exit;

   if FileExists(FileName)
   then FS := TFileStream.Create(FileName,fmOpenWrite)
   else FS := TFileStream.Create(FileName,fmCreate);
   MS := TMemoryStream.Create;

   TmpCount := Pics.Count;

   FS.Write(TmpCount,SizeOf(Word)); // выводим количество картинок
   For I:=0 To TmpCount-1 Do
   Begin
     CurrentRec:=Pics.Items[I];
     CurrentRec.Bitmap.SaveToStream(MS);
     PicOffset := MS.Position;
     FS.Write(PicOffset,SizeOf(Integer)); // выводим смещение  каждой картинки
   End;
   MS.SaveToStream(FS); // выводим сами картинки (все)

   FS.Free;
   MS.Free;
 End;