Запись с 64 уровнями дискретизации требует 8 бит на отсчет. По-видимому, речь идет об амплитуде сигнала. Для записи сигнала с частотой 16 кГц в каждую секунду делается 16 000 отсчетов. Поскольку запись стереофоническая, то она использует два канала, т.е. количество отсчетов в секунду составит 2 х 16 000 = 32 000. За минуту и 10 секунд, т.е. за 70 секунд - в 70 раз больше. Итого получаем 32 000 х 70 х 8 = 17 920 000 бит. Переведем это значение в байты, поделив на 8 ( в 1 байте 8 бит), а затем в килобайты, поделив на 1024. Получим 17 920 000 / 8 / 1024 ≈ 2 188 (Кбайт).
Procedure TForm1.Button1Click(Sender: TObject); begin If FontDialog.Execute then RichEdit1.SelAttributes.Assign(FontDialog1.Font); RichEdit1.SetFocus; End; end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу. Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа RichEdit1.SelAttributes.Font := FontDialog1.Font и конечно описка выделенная ранее, как на нее только компилятор не матерится
Итого получаем 32 000 х 70 х 8 = 17 920 000 бит.
Переведем это значение в байты, поделив на 8 ( в 1 байте 8 бит), а затем в килобайты, поделив на 1024. Получим 17 920 000 / 8 / 1024 ≈ 2 188 (Кбайт).
Наиболее близкий из ответов: 2) 2048
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится