Проверка на вхождение в диапазонDelphi , Синтаксис , Типы и ПеременныеПроверка на вхождение в диапазон
Автор: Anatoly Podgoretsky { **** UBPFD *********** by delphibase.endimus.com **** >> Проверка на вхождение в диапазон Функция производит проверку на вхождение в диапазон для трех базовых типов Integer, Extended и TDateTime. Используется перекрытие для трех типов данных. На вход подаются проверяемое значение, начальное и конечное значение диапазона. Если проверяемое значение находится внутри диапазона то возвращается ИСТИНА, иначе ЛОЖЬ. Зависимости: нет Автор: Anatoly Podgoretsky, anatoly@podgoretsky.com, Johvi Copyright: Anatoly Podgoretsky Дата: 24 апреля 2002 г. ***************************************************** } function Between(Check, Left, Right: Integer): Boolean; overload; function Between(Check, Left, Right: Extended): Boolean; overload; function Between(Check, Left, Right: TDateTime): Boolean; overload; ... function Between(Check, Left, Right: Integer): Boolean; begin Result := (Check >= Left) and (Check <= Right); end; function Between(Check, Left, Right: Extended): Boolean; begin Result := (Check >= Left) and (Check <= Right); end; function Between(Check, Left, Right: TDateTime): Boolean; begin Result := (Check >= Left) and (Check <= Right); end; Пример использования: if not Between(N, 1, 12) then ShowMessage('Number must between 1..12'); if not Between(N, 12.0, 13.8) then N := 12; if not Between(d, StrToDateTime('1.01.2002'), Date) then d := Date; Статья Проверка на вхождение в диапазон раздела Синтаксис Типы и Переменные может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Типы и Переменные ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |