|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблема с функцией!
Всем привет!
Вот моя функция: Код:
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 Подскажите пожалуйста, в чём может быть проблема? |
#2
|
||||
|
||||
Это не ошибка, а предупреждение. В некоторых случаях, а именно когда
Цитата:
Код:
Result:=0; Код:
...... else Begin showmessage(' DISKRETNYE KOORDINATY - VNE OBLASTI ! '); Result:=0; end; |
#3
|
|||
|
|||
Спасибо за обьяснение!
МОжно, что б при последнем варианте просто остановить процесс, а не результат функции 0? |
#4
|
||||
|
||||
Цитата:
♦Application.Terminate; ♦Halt(); ♦Form1.Close; - предпочтительней двух предыдущих вариантов; ♦И много других нецивилизованных вариантов. Если выйти из ф-ции - то EXIT; , но это предупреждения не уберет. |
#5
|
||||
|
||||
брр... какой неразборчивый код, не удержался
Код:
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; Последний раз редактировалось sariman, 14.10.2012 в 12:06. |