Проверка на вхождение в диапазон

Delphi , Синтаксис , Типы и Переменные

Автор: Anatoly Podgoretsky
WEB-сайт: http://delphibase.endimus.com

{ **** 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, который реализует функцию Between, которая проверяет, находится ли значение в указанном диапазоне. Функция может использоваться с тремя различными типами данных: Integer, Extended и TDateTime.

Функция Between принимает три параметра: значение для проверки, левую границу диапазона и правую границу диапазона. Она возвращает булевое значение, указывающее, находится ли значение в указанном диапазоне.

Работа функции следующая:

• Для целых типов данных (Integer), она проверяет, является ли значение больше или равно левой границе и меньше или равно правой границе.
• Для вещественных чисел (Extended), она также проверяет ту же условие, что и для Integer.
• Для дат и времени (TDateTime), она проверяет, находится ли дата и время между указанными границами.

Код включает в себя три перегрузки функции Between, каждая из которых предназначена для конкретного типа данных. Реализация проста: она использует булевые логические операторы для проверки условий.

Пример использования:

if not Between(N, 1, 12) then
  ShowMessage('Number must be between 1 and 12');

if not Between(N, 12.0, 13.8) then
  N := 12;

if not Between(d, StrToDateTime('1.01.2002'), Date) then
  d := Date;

В этом коде проверяется, является ли число N между 1 и 12, затем между 12.0 и 13.8, а также дата d находится ли в указанном диапазоне.

В целом, это простой, но полезный функционал, который может быть применен к различным сценариям программирования.

Функция Between в Delphi проверяет нахождение значения в заданном диапазоне для типов Integer, Extended и TDateTime, возвращая истину если значение находится в диапазоне, и ложь в противном случае.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Типы и Переменные ::