В окне папки можно выделять как один объект (щелчком мыши по значку), так и группу объектов, т.е. несколько объектов сразу:
для выделения несмежных объектов щелкайте на них при нажатой клавише ; для выделения смежных объектов, щелкните на первом из них, нажмите клавишу и, удерживая ее, щелкните на последнем; для выделения всех объектов – выполните команду меню Правка Выделить все либо используйте сочетание клавиш +A . Также группу объектов можно выделить протягиванием.
Чтобы снять выделение с объектов, достаточно щелкнуть в свободном месте окна папки.
Procedure TForm1.Button1Click(Sender: TObject); var i,j,k:Integer; Chislo : Integer; begin Memo1.Clear; for i := 0 to 31 do begin Chislo := 3; for j := 0 to 4 do begin if ((i and Trunc(IntPower(2,j)))=0) then Dec(Chislo) else Chislo := 3*Chislo; if (Chislo=16) then begin Memo1.Lines.Append('УРА - Нашли'); for k := 0 to j do if ((i and Trunc(IntPower(2,k)))=0) then Memo1.Lines.Append('1') else Memo1.Lines.Append('2'); Memo1.Lines.Append(''); end; end; end; end;
1-3
2-1
3-2
Объяснение:
ПОМЕТЬ КАК ЛУЧШИЙ!