"Для разработчиков", "Серверные скрипты", "Описание функций", "Разное", "Dec".

 

Уменьшить значение переменной на единицу.

 

Синтаксис

procedure Dec(var x);

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

x

число или перечисляемый тип

значение, которое требуется уменьшить на 1.

 

Результат функции

Переменная-параметр уменьшает свое значение на 1.

 

Пример

type
  TSuit = (Hearts, Clubs, Diamonds, Spades);
var
  i: integer;
  card: TSuit;  
  
function GetCardSuit(card: TSuit): string;
begin
  if Card = Hearts then result := 'Hearts' 
    else if Card = Clubs then result := 'Clubs'
      else if Card = Diamonds then result := 'Diamonds'
        else result := 'Spades';
end;
begin
  card := Clubs;
  mLogScript('Card starts at: ' + GetCardSuit(card), '');
  
    for i := 1 to 2 do begin
      Inc(card);
      mLogScript('Card suit is: ' + GetCardSuit(card), '');
    end;  
end.

Результат работы скрипта

[07:43:50] (Log "Inc"): Card starts at: Clubs

[07:43:50] (Log "Inc"): Card suit is: Diamonds

[07:43:50] (Log "Inc"): Card suit is: Spades
 

Ещё посмотреть

mLogScript