В Delphi имеются следующие стандартные функции для порядковых типов данных.
- Low(I) - минимальное значение типа I;
- High(I) - максимальное значение типа I;
- Pred(I) - предшествующее значение выражения I;
- Succ(I) - следующее значение после выражения I;
- Ord(I) - порядковый номер выражения I.
Давайте расположим на форме кнопку и два компонента Label, первый будет показывать минимальное значение, а второй максимальное значение целочисленного диапазона. Обработчик кнопки будет иметь следующий вид:
procedure TForm1.Button1Click(Sender: TObject); var I : integer; begin Label1.Caption := IntToStr(High(I)); Label2.Caption := IntToStr(Low(I)); end;
Запустив приложение и нажав кнопку мы узнаем самое меньшее и самое число принадлежащее целому типу.
Для оставшихся функций создадим другое приложение. На форме расположим кнопку и 4 компонента Label. Где первый компонент будет показывать порядковый номер, второй - значение, третий и четвертый предшествующие и последующие значения.
procedure TForm1.Button1Click(Sender: TObject); Type Klass = 'A'..'F'; var Paragrf : Klass; begin Paragrf := 'B'; Label1.Caption := IntToStr(Ord(Paragrf)); Label2.Caption := Paragrf ; Label3.Caption := Pred(Paragrf) ; Label4.Caption := Succ(Paragrf) ; end;
Для порядковых типов данных имеются еще 2 процедуры Inc и Dec.
Итог: в данной статье мы ознакомились с функциями Delphi для порядковых типов данных.