Всем привет!
Вот моя функция:
Код:
function Through( k, m :integer; N_f :word) :longword; // skvoznoy nomer uzla*
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(' DISKRETNYE KOORDINATY - VNE OBLASTI ! ')
end; //........................................................ Through
При запуске выдаёт такую ошибку:
Return value of function 'Through' might be undefined
Подскажите пожалуйста, в чём может быть проблема?