04 March 2009 - !false IT emo (original) (raw)

// подсчет количества листов в районе
lstcnt := mapGetListCount(GMAP);

// подсчет общего количества объектов
if lstcnt <> 0 then
for i := 1 to mapGetListCount(GMAP) do
objcnt := objcnt + mapGetObjectCount(GMAP,i);

Кусок кода из примера к подключаемым задачам одной российской ГИС.

Понятно, что в реальных условиях количество слоев карты редко превышает десяток, но сам принцип вызова внешней функции из подключенной библиотеки в условии цикла (значит n+1 раз) сражает мой мозг наповал. Это ведь при том, что значение уже получено и лежит в отдельной переменной. И вот так повсюду, от ручек для молотка до ракет с ядерными боеголовками.