Вопрос : Архив увеличивая в размере

Кажется как everytime мы получаем назад в Кодего VBA, размер архива увеличивает драматически… иногда 1MB… и нами didn; t реально делает что-нибыдь…, котор мы все еще используем 2003 для различных причин… за исключением отверстия и ремонтирующ кажется, что сжимает его бит, все просто выходки к получать архив назад вниз к managable размеру?
class=

Ответ : Архив увеличивая в размере

вызовите метод столба dataset после задавать курс архива:

процедура TForm1.cxImage1PropertiesCustomClick (прислужник: TObject);
начните
     если OpenPictureDialog1.Execute после этого
     начните
           YourDataSet.FieldByName («PicPath ").AsString: = OpenPictureDialog1.FileName;
           YourDataSet.Post;
           cxImage1.Picture.LoadFromFile (OpenPictureDialog1.FileName);
   конец;
конец