[dpmkh]

Всем привет!

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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 !

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

Код:

1	Result:=0;

, или

Код:

1 2 3 4 5 6

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

[dpmkh]

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

[YVitaliy]

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

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

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

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

[sariman]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;