Формула не работает в *.dll

[technik4]

Есть два кода - код в *.pas и код в *.dll
*.pas

r:=RadBH(b,h);
l:=LArcRB(r,b);   
b_pr1:= 2*r*sin(l/(2*r));
b_pr2:=HordRL(r,l);

*.dll

uses
  SysUtils,
  Classes,
  Math ;

{$R *.res}

function LArcRB(r,b:real):real;//Длина дуги по радиусу и хорде
begin
Result:=2*r*ArcSin(b/(2*r));
end;
function HordRL(r,l:real):real;//Хорда по радиусу и длине дуги
begin
Result:=2*r*sin(l/(2*r));
end;
function RadBH(b,h:real):real;//Радиус по хорде и высоте
begin
Result:=(Sqr(b/2)+Sqr(h))/(2*h);
end;
function Rad3P(x1,y1,x2,y2:real):real;//Радиус по 3-м точкам
begin
Result:=0;
end;
exports Rad3P,RadBH,HordRL,LArcRB;
begin
end.

в pas коде возвращаются все переменные кроме b_pr2 (вернее она равна 0), хотя b_pr1="значение".
b_pr2 считается в dll по той же формуле, что и b_pr1 в pas.

technik4@yandex.ru

[technik4]

Извиняюсь, косяк мой.
Начал копировать весь код и нашел в пустой строке глубоко справа

 b_pr2:=b_pr2-b_pr2;

как туда попала, ума не приложу!

[veniside]

> пустой строке глубоко справа

ггг, мы так любили шутить )

(утром смотрел на код, думаю, вроде выглядит всё ок, не стал ничего отвечать )

[veniside]

> пустой строке глубоко справа

ггг, мы так любили шутить )

(утром смотрел на код, думаю, вроде выглядит всё ок, не стал ничего отвечать )