Условию (Иллюстратор = «Сутеев») удовлетворяют записи 1, 5 и 6
Условию (Год_издания > 2005) удовлетворяют записи 3, 4, 6, 7 и 9
Условию (Иллюстратор = «Сутеев») ИЛИ (Год_издания > 2005) удовлетворяют записи 1, 3, 4, 5, 6, 7 и 9 (итого 7 записей - дублирующиеся записи (6) дважды не считаем)
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 и конечно описка выделенная ранее, как на нее только компилятор не матерится
7
Объяснение:
Пронумеруем записи фрагмента (для удобства):
Номер Автор Название Иллюстратор Год_издания
1 Чуковский Айболит Сутеев 2000
2 Ершов Конёк-Горбунок Дмитриев 1985
3 Ершов Конёк-Горбунок Кочергин 2013
4 Перро Красная Шапочка Дехтерев 2012
5 Берестов Весёлое лето Сутеев 1982
6 Чуковский Мойдодыр Сутеев 2012
7 Ершов Конёк-Горбунок Якшис 2012
8 Пушкин Руслан и Людмила Владимирский 2005
9 Чуковский Айболит Горбушин 2009
Условию (Иллюстратор = «Сутеев») удовлетворяют записи 1, 5 и 6
Условию (Год_издания > 2005) удовлетворяют записи 3, 4, 6, 7 и 9
Условию (Иллюстратор = «Сутеев») ИЛИ (Год_издания > 2005) удовлетворяют записи 1, 3, 4, 5, 6, 7 и 9 (итого 7 записей - дублирующиеся записи (6) дважды не считаем)
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится