логическая вилка из циклов-"в то время, как до". FPC Lazarus
Запись от Hrethgir размещена 14.02.2015 в 17:49
Показов 3086
Комментарии 0
|
этот код, по идее, должен быть обойдён в программе, если размер массива равен нулю, если конечно такой размер можно установить следующим оператором SetLength (ATimeBoxMaxY , 0) или любым другим способом в начале программы; сделано под чутким вниманием [nick]volvo[/nick], тут [URL="https://www.cyberforum.ru/lazarus/thread1374347.html"]https://www.cyberforum.ru/lazarus/thread1374347.html[/URL] [PASCAL]highATimeBoxMaxY:=high(ATimeBoxMaxY) while highATimeBoxMaxY >0 do repeat highATimeBoxMaxY := highATimeBoxMaxY-1; TimeBoxMaxY := ATimeBoxMaxY[highATimeBoxMaxY]; if TimeBoxMaxY.minY < endY then begin SetLength( ATimeBoxMaxY, highATimeBoxMaxY); highATimeBoxMaxY :=0; end; until highATimeBoxMaxY = 0;[/PASCAL] ну вообще-то целесообразность такой вилки сомнительна, ведь можно воспользоваться оператором [B]if[/B], но в будущем может пригодиться. просто я не использую практически оператор [B]if[/B] и немного забыл про него. в моём понятии он -[B]if[/B], не лепится в структуры. структура - безусловное. структуры интереснее чем объекты, они учат чему-то, а объекты только заявляют. иначе говоря, чтобы создать структуру - надо знать, а чтобы описать объекты - видеть. |
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 0
Комментарии
