Pytanie : Kartoteka W Rozmiar

Wydawać się jak everytime my dostawać z powrotem w the VBA kod, the rozmiar pliku wzrastać dramatycznie… czasem 1MB… i my didn; t naprawdę cokolwiek… my wciąż używać 2003 dla różnorodny powód… 2003 otwarcie i naprawianie che wydawać się ono trochę, być tam  jakaś prosty sztuczka the kartoteka z powrotem zestrzelać gospodarski rozmiar?

Odpowiedź : Kartoteka W Rozmiar

wywoławczy poczta metoda dataset po kartoteka ścieżka:

procedura TForm1.cxImage1PropertiesCustomClick (Nadawca: TObject);
zaczynać
     jeżeli OpenPictureDialog1.Execute wtedy
     zaczynać
           YourDataSet.FieldByName ("PicPath ").AsString: = OpenPictureDialog1.FileName;
           YourDataSet.Post;
           cxImage1.Picture.LoadFromFile (OpenPictureDialog1.FileName);
   końcówka;
końcówka