Форум программистов, компьютерный форум, киберфорум
Hretgir
Войти
Регистрация
Восстановить пароль
Оценить эту запись

логическая вилка из циклов-"в то время, как до". FPC Lazarus

Запись от Hretgir размещена 14.02.2015 в 17:49
Обновил(-а) Hretgir 14.02.2015 в 18:30

этот код, по идее, должен быть обойдён в программе, если размер массива равен нулю, если конечно такой размер можно установить следующим оператором SetLength (ATimeBoxMaxY , 0) или любым другим способом в начале программы; сделано под чутким вниманием volvo, тут Организовать цикл работы с массивом, с обходом этого цикла при отсутствии данных в массиве
Pascal
1
2
3
4
5
6
7
8
9
10
11
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;
ну вообще-то целесообразность такой вилки сомнительна, ведь можно воспользоваться оператором if, но в будущем может пригодиться. просто я не использую практически оператор if и немного забыл про него. в моём понятии он -if, не лепится в структуры. структура - безусловное. структуры интереснее чем объекты, они учат чему-то, а объекты только заявляют. иначе говоря, чтобы создать структуру - надо знать, а чтобы описать объекты - видеть.
Показов 716 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.