Чтобы это узнать нам потребуется разобрать это на примере. допустим у нас есть изображение размером 1024х1024 пикселя. чтобы определить объем занимаемой памяти при наличии на нем 65 536 цветов для начала нужно выяснить сколькими битами кодировать один пиксель. 65 536 = 2^16 => один пиксель кодируется 16 битами. значит объем памяти изображения будет составлять: 1024*1024*16= 16 777 216 бит. теперь вычислим объем памяти при наличии 16 цветов на изображении. 16=2^4 => 1024*1024*4=4 194 304 теперь чтобы определить во сколько раз уменьшился объем памяти изображения мы выполняем следующее действие: 16 777 216 : 4 194 304 = 4 т е объем памяти изображения уменьшился в 4 раза.
type TForm1 = class(TForm) Image1: TImage; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenDialog1.FileName); Image1.Stretch:=true; Image1.Left:=form1.Width div 2-image1.Width div 2; Image1.top:=form1.Height div 2-image1.Height div 2; end end;
