На графе изображены пункты А,B,C,D,E,F,G,H,K,L и связывающие их дороги. По каждой дороге можно двигаться - id2070435420200420 от марго419 20.04.2020 19:50

Question

Информатика: На графе изображены пункты А,B,C,D,E,F,G,H,K,L и связывающие их дороги. По каждой дороге можно двигаться только в одном направлении, на которое указывает стрелка. Сколько существует путей из пункта А в пункт L , обязательно проходящих через пункт G ?

марго419 · Accepted Answer

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
и конечно описка выделенная ранее, как на нее только компилятор не матерится

MOGZ ответил