Ограничить входной параметр

[kta87]

Что то я затупил совсем, но все же: Есть функция

function NLineFunction(AModelFunction: Integer; var FX: array of Real): Boolean;

Параметр "AModelFunction" может быть задан как 0 или 1 или 2 или 3.
Как прописать ограничения что бы функция не воспринимала другие значения, ну что то типа TMyType = (0,1,2,3); AModelFunction: TMyType;

[Streletz]

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

Параметр "AModelFunction" может быть задан как 0 или 1 или 2 или 3.
Как прописать ограничения что бы функция не воспринимала другие значения, ну что то типа TMyType = (0,1,2,3); AModelFunction: TMyType;

Можно описать AModelFunction как перечисление. Например:

type
TAModelFunction=(0,1,2,3);

[kta87]

Объявляю так:

TATypeFunction = (PowerFunctionModel, ExponentialFunctionModelOne, ExponentialFunctionModelTwo, LogarithmicFunctionModel);
...
function NLineFunction(AModelFunction: TATypeFunction; var FX: array of Real): Boolean;
...

Дальше по коду нужно бы использовать

Сase AModelFunction of 
0: код;
1: код;
и т.д.
end;

Но получаю несовпадение типов! Хотя из литературных азов следует: "Можно утверждать, что объявление перечисляемого типа — это сокращенная форма записи объявления именованных констант. Например, приведенное выше объявление типа TDayOfWeek равносильно следующему объявлению:
const
MON=0; TUE=1; WED=2; THU=3; FRI=4; SAT=5; SUN=6;"
Ладно, упустил обыкновение порядковых номеров, т.е. следует писать Сase Ord(AModelFunction) of
Streletz, спасибо за помощь!
Тему можно закрывать!

[Аватар]

А так нельзя что-ли, и визуально понятней

Сase AModelFunction of 
PowerFunctionModel: код;
ExponentialFunctionModelOne: код;
и т.д.
end;

[kta87]

Аватар, согласен!

[phomm]

В предельном случае, нельзя доверять входным данным функции, и нужно проверить на допустимость этих данных - в ветке else кейса или просто проверкой, например if Ord(inputvalue) in [Ord(Low(TEnum))..Ord(High(TEnum))] .
Просто можно не увидеть ошибки при каком-либо действии с приведением некоего числа (получаемого извне, например) к данному перечислимому типу, и тогда в переменной будет лежать невалидное значение (в рантайме , да и в компайлтайме с кастом это никак не ограничивается)

[Вадим Мошев]

А что, если использовать тип-диапазон, то есть:

type TMyType = 0..3;
............
AModelFunction: Ttype;...

?