ПРоблема с функцией!

[dpmkh]

Всем привет!

Вот моя функция:

Function Through(k,m:integer; N_f:word):longword;
   Begin
    if (k<=N_f) and (m<=N_f) then
      if m>k then result:=sqr(m+1)-k
             else result:=sqr(k)+1+m
       else
          if (k>N_f) and (m<=N_f) then
             result:=sqr(N_f+1)+2*(k-N_f-1)*N_f+k-N_f+m
          else
          if (k<=N_f) and (m>N_f) then
              result:= sqr(N_f+1)+2*(m-N_f)*N_f+m-N_f-k
          else showmessage ('Дискретные координаты -вне области !');
    end;

При запуске выдаёт такую ошибку:

Return value of function 'Through' might be undefined

Подскажите пожалуйста, в чём может быть проблема?

[eval]

проблема в том что - "Return value of function 'Through' might be undefined".
вы не понимаете что тут написано, или не можете перевести на родной или ..?

[BDA]

Это значит, что "возвращаемое значение функции может быть не определено" (вольно-дословный перевод).
Лучше перепишите так:

Function Through(k,m:integer; N_f:word; var res: longword):integer;
   Begin
    result := 0;
    if (k<=N_f) and (m<=N_f) then
      if m>k then res:=sqr(m+1)-k
             else res:=sqr(k)+1+m
       else
          if (k>N_f) and (m<=N_f) then
             res:=sqr(N_f+1)+2*(k-N_f-1)*N_f+k-N_f+m
          else
          if (k<=N_f) and (m>N_f) then
              res:= sqr(N_f+1)+2*(m-N_f)*N_f+m-N_f-k
          else 
            result:=-1;
    end;
...
if Through(k,m,n_f,res) = -1 then
    showmessage ('Дискретные координаты -вне области !');

или

Function Through(k,m:integer; N_f:word):longword;
   Begin
    result:=0;
    if (k<=N_f) and (m<=N_f) then
      if m>k then result:=sqr(m+1)-k
             else result:=sqr(k)+1+m
       else
          if (k>N_f) and (m<=N_f) then
             result:=sqr(N_f+1)+2*(k-N_f-1)*N_f+k-N_f+m
          else
          if (k<=N_f) and (m>N_f) then
              result:= sqr(N_f+1)+2*(m-N_f)*N_f+m-N_f-k
          else showmessage ('Дискретные координаты -вне области !');
    end;

[dpmkh]

Всёравно не работает, дело в том что эта функция работала без проблем в паскале, а в делфи никак..Ещё выдаёт такую ошибку: Project Project2.exe raised exception class EInvalidOp with message ' Invalid floating point operation'. Process stopped. Use Step or Run to continue.
Можно ли посмотреть в какой строчке оменно ошибка?

[eval]

Use Step or Run to continue.

А на какой остановилась?

[dpmkh]

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

А на какой остановилась?

Вроде вот на этой строчке

Xmax:= X_Node^[1]; Xmin:= X_Node^[1];

[Человек_Борща]

Можно ли посмотреть в какой строчке оменно ошибка?

Ставите breakpoint и f7/f8 перемещаетесь по строкам кода.