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 и конечно описка выделенная ранее, как на нее только компилятор не матерится
Объяснение:
19. 0. Или пустое множество.
A = {1, 2, 3, 4, 5, 6, 7, 8}; B = {1, 2, 3, 4, 5, 6, 9}; C = {1, 2, 3, 4, 5, 6}
Элементы, которые принадлежат хотя бы одному из множеств А или В:
{1, 2, 3, 4, 5, 6}
Получилось как раз множество С, и на 2 шаге все элементы удаляются.
20. Это более сложная задача, сходу не скажешь.
21. Счастливые билеты в промежутке (186780, 207701)
187781, 188881, 189981, 190091, ..., 199991,
200002, 201102, 202202, 203302, 204402, 205502, 206602.
Под многоточием стоят все симметричные номера, у которых две средних цифры меняются от 00 до 99. Всего 10 номеров.
Итого получается 3 + 10 + 7 = 20 счастливых билетов.
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится