[dpmkh]

Всем привет!

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

Код:

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

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

[YVitaliy]

Это не ошибка, а предупреждение. В некоторых случаях, а именно когда

DISKRETNYE KOORDINATY - VNE OBLASTI !

, результат ф-ции будет неопределен. Напиши вначале, например

Код:

Result:=0;

, или

Код:

......
else
  Begin
    showmessage(' DISKRETNYE KOORDINATY - VNE OBLASTI  !  ');
    Result:=0;
  end;

[dpmkh]

Спасибо за обьяснение!
МОжно, что б при последнем варианте просто остановить процесс, а не результат функции 0?

[YVitaliy]

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

..просто остановить процесс

Какой именно процесс? Если завершить работу программы-то:
♦Application.Terminate;
♦Halt();
♦Form1.Close; - предпочтительней двух предыдущих вариантов;
♦И много других нецивилизованных вариантов.

Если выйти из ф-ции - то EXIT; , но это предупреждения не уберет.

[sariman]

брр... какой неразборчивый код, не удержался

Код:

function Through(k, m: Integer; N_f: Word): Longword; //  skvoznoy nomer uzla*
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('DISKRETNYE KOORDINATY - VNE OBLASTI !')                  
end;