Dll и функции

[GunSmoker]

Сообщение от Antistas

теперь вылетает с ошибкой Range Check Error в dll

Значит в твоём алгоритме баг. Индекс массива выходит за допустимый для массива диапазон.

[mss]

Какого же лешего ты вызываешь Write[Ln] при использовании dll в НЕконсольном хост-приложении ?
ССЗД)

[Antistas]

Сообщение от mss

Какого же лешего ты вызываешь Write[Ln] при использовании dll в НЕконсольном хост-приложении ?
ССЗД)

writeln были в консольном приложении. при переносе в dll writeln уже нет.

[Antistas]

Сообщение от veniside

> И она вполне рабочая.

Ну так при переносе в ДЛЛ ты всё переделал. Толку, что она рабочая.

В общем, это уже не так важно, т.к.:

> теперь вылетает с ошибкой Range Check Error в dll

Ищи, где и почему выходишь за границы массива.

Выход за границы массива происходит потому что программа зацикливается. делал трассировку. компилятор почему то некоторые действия пропускает. тупо синяя полоска проходит мимо.
Сам по себе алгоритм должен заканчиваться с 1-2 итерации , при переносе в алгоритме ничего не трогал. убрал лишь writeln. Программа нормально выходит когда ставлю число итерации (М) = 5 например. и в процедуре stop присваиваю d=1, чтобы выйти из цикла. Только в этом случае программа нормально завершается. однако повторюсь что 5 итерации быть не должно. 1 - 2 максимум.

[mss]

> компилятор почему то некоторые действия пропускает

Выключи оптимизатор.

[GunSmoker]

Сообщение от Antistas

компилятор почему то некоторые действия пропускает

"Некоторые" - это какие? Свой хрустальный шар я забыл у друга.

[Antistas]

  if (y1 < y2)   then
			      begin
					    delta:= x2 - x1;
					    b:= x2;
					    x2:= x1;
				    	x1:= a + delta;
				    	y2:= y1;
			      end

В этой части например . Зайдет сюда

b:= x2;

и выйдет. Но я уже по ходу разобрался. Похоже дело было в том что я не организовал нормальный выход из цикла. Спасибо всем