MyChat Scripts: функция Dec, уменьшение значения переменной на 1
"Для разработчиков", "Серверные скрипты", "Описание функций", "Разное", "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