AVZ 5. Руководство пользователя
×
Меню
Индекс

16.42.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