16.44.8. procedure Dec
procedure Dec(var i: Integer; incr: Integer = 1);
Осуществляет декремент целочисленной переменной i.
По умолчанию декремент ведется на единицу, но возможен декремент на любое заданное значение.
Пример:
var
i : integer;
begin
i := 25;
dec(i);
dec(i, 5);
AddToLog(IntToStr(i));
end.
В примере использовались: AddToLog