[Gazi]

расчет не совсем "голый". заданную область разбиваю на сетку размером 1000*1000 и прохожу циклом по ней (и того 1млн значений). Для каждой точки определяю координаты (отдельно занимает 1-2 мин). После этого прохожу по слоям и определяю, есть ли в данной точке объекты (в данном случае реки, села). если есть - в таблицу записываю 1, в противном случае - 0 (вот тут долго обрабатывается). привожу алгоритм:

...
dim p() as integer
dim obj() as string

redim p(n)
redim obj(n)

obj(1)="Реки"
obj(2)="Села"
....
nn=1000

xg1=24.5319
yg1=48.4709
xg2=24.5779
yg2=48.4441

dx=xg2-xg1
dy=yg2-yg1

stepx=dx/nn
stepy=dy/nn

x=xg1-stepx
y=yg1-stepy

print "----------------------------------------"

For jj=1 to nn
x=xg1-stepx
y=y+stepy

For ii=1 to nn
x=x+stepx

i_found = SearchPoint(i_win_id, x, y)

If i_found <> 0 Then

For k = 1 to ubound(p)
p(k)=0
next

For k = 1 to i_found
s_table = SearchInfo(k, SEARCH_INFO_TABLE)

for j=1 to n
if s_table = obj(j) then
print "point "+i+" found "+s_table
p(j) = 1
exit for
end if
next

Next

Insert into Coordp Values (x,y,p(1),p(2))

end if
Next
Next

далее провожу расчет расстояний, тут можно воспользоваться советом про Access, но загвоздка в предыдущем пункте.

[Андрей Могильный]

Попробуйте определить на какой строке тормозит:
1) i_found = SearchPoint(i_win_id, x, y)
2) Insert into Coordp Values (x,y,p(1),p(2))

определяется просто - комментируйте строку, выполняйте алгоритм, засекайте время.

[Gazi]

сделал, что рекомендовали.
1) в первом пункте обработка длится 1-2 мин, но впоследствии таблица оказывается пустой;
2) закомментировав Insert into Coordp Values (x,y,p(1),p(2))
расчет длится 2,5 часа. значит тормозит строка:
i_found = SearchPoint(i_win_id, x, y)

[Андрей Могильный]

Попробуйте заменить ее конструкцией Select с оператором Intersects

[Gazi]

Нужно в таблице найти номер строки, которому соответствует пересечение двух координат х и у. К таблице не присоединены графические объекты, поэтому команда Find не доступна. Можно как-то иначе сделать?

[reasonat]

Если поля с координатами в таблице есть, ищите их запросом. Если нет - то никак

[Gazi]

я так и делал, только как мне узнать номер строки?

[reasonat]

если выборка сработала, то обработчик SelChangedHandler покажет номер выбранной строки

[Gazi]

Спасибо, с кодом разобрался.

Declare Sub Main
Declare Sub SelChangedHandler

dim ID as integer

Sub Main
dim i as integer
Set Handler SelChangedHandler Off
Select * from Coord where Xcoord=24.5412 And Ycoord=48.3089 into tmptable
Set Handler SelChangedHandler On

print chr$(12)
for i=1 to tableinfo(tmptable,TAB_INFO_NROWS)
select * from tmptable where rowid=i
print ID
next
close table tmptable
end program
end Sub

Sub SelChangedHandler
ID=CommandInfo(CMD_INFO_ROWID)
End Sub

Но когда я задаю координаты (у меня после запятой 4 цифры, в таблице 4 и больше) часто ничего не находит. Можно как-то принудительно задать выбор только по 4 цифрам после запятой?

[Arhara]

Функция Round() не подойдет?

[Gazi]

в теле программы добавил

x1=Coord.Xcoord
'столбец Xcoord таблицы Coord
y1=Coord.Xcoord
p=Round (x1, 0.0001)
s=Round (y1, 0.0001)

но это результата не дало. Вы это имели ввиду или предполагалось использование Round() другим образом?

[Gazi]

В самой таблице округляет до 4 знаков, но если выбрать ячейку - то знаков после запятой намного больше и поиск не работает.

Create Table Coord
(Xcoord Float,
Ycoord Float)

Можно ли явно указать количество знаков после запятой в Float?

[Gazi]

если сохранить данные в .csv, а потом открыть с помощью мапинфо и сохранить как таблицу - остается 4 знака после запятой и поиск работает.

подскажите, есть 2 таблицы, которые сформировал таким образом. как их объединить в одну?