Функции и процедуры для работы с данными перечислимого типа

Процедура Dec( var X[; N: Longint] );
Модуль: System
Описание
Процедура уменьшает значение переменной X на величину N или на 1, если параметр N опущен (т.е. Dec(X)=X-1, а Dec(X,N)= X-N). Аргумент X должен представлять собой переменную перечислимого типа (включая Int64), или типа PChar (если допускается расширенный синтаксис). Значение необязательного параметра N должно иметь целочисленный тип.
Рекомендуется использовать процедуру Dec в программах, насыщенных циклами, т.к. она генерирует наиболее оптимизированный код.
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"}var
i: Integer;
begin
i:= Height-10;
while i>0 do
begin
Canvas.TextOut(10, i, IntToStr(i));
Dec(i, 20); // i:= i-20
end;
end; {/codecitation}
 


Процедура Inc( var X[; N: Longint] );
Модуль: System
Описание
Процедура увеличивает значение переменной X на величину N или на 1, если параметр N опущен (т.е. Dec(X)=X+1, а Dec(X,N)= X+N). Аргумент X должен представлять собой переменную перечислимого типа (включая Int64), или типа PChar (если допускается расширенный синтаксис). Значение необязательного параметра N должно иметь целочисленный тип.
Рекомендуется использовать процедуру Dec в программах, насыщенных циклами, т.к. она генерирует наиболее оптимизированный код.
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"}var
i: Integer;
begin
i:= 10;
while i<Height do
begin
Canvas.TextOut( 10, i, IntToStr(i) );
Inc( i, 20); // i:= i+20
end;
end; {/codecitation}
 


Функция Odd( X: LongInt ): Boolean;
Модуль: System
Описание
Функция определяет четность аргумента X. Возвращает True, если Х представляет собой нечетное значение и False, если четное.
 


Функция Ord( X ): Longint;
Модуль: System
Описание
Функция возвращает порядковый номер (индекс) выражения перечислимого (кроме Int64) или символьного типа, переданного в параметре X. Если аргумент имеет перечислимый тип, то функция возвращает индекс элемента (1-й элемент имеет индекс 0). Если Х представляет собой значение типа Char, то функция возвращает ASCII код символа.
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"}type
MyType = (x1, x2, x3, x4);
var
S: string;
begin
S:= ‘x3 имеет порядковый номер ‘+ IntToStr( Ord( x3 ))+ #13;
S:= S+ ‘ASCII код символа "Б" — ‘ + IntToStr( Ord( ‘Б’ ))+ #13;
S:= S+ ‘ASCII код символа "б" — ‘ + IntToStr( Ord( ‘б’ ));
MessageDlg( S, mtInformation, [mbOk], 0);
end; {/codecitation}
 


Функция Pred( X );
Модуль: System
Описание
Функция возвращает значение, предшествующее значению аргумента Х. Аргумент должен иметь перечислимый тип (допускается Int64).
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"} var
S: string;
begin
S:= ‘Число 25 следует за числом ‘ + IntTostr( Pred(25)) + #13;
S:= S + ‘Буква Д стоит в алфавите после буквы ‘ + Pred( ‘Д’ );
MessageDlg( S, mtInformation, [mbOk], 0);
end;{/codecitation}
 


Функция Succ( X );
Модуль: System
Описание
Функция возвращает значение, следующее за значением аргумента Х. Аргумент должен иметь перечислимый тип (допускается Int64).
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"}var
S: string;
begin
S:= ‘За числом 25 следует число ‘ + IntTostr( Succ(25))+#13;
S:= S + ‘За буквой Д в алфавите идет буква ‘ + Succ(‘Д’);
MessageDlg( S, mtInformation, [mbOk], 0);
end; {/codecitation}
 

Добавить комментарий