Dec

Declaration

procedure Dec(var X: Integer); overload

Example

procedure OnMapEvent(var Value:Variant);
var i : integer
begin
i := 10;
  while i > 0 do
begin
LogInfo('i is equal to '+IntToStr(i));
Dec(i);
end
end;

Description

Decrements an integer value by 1. This provides faster processing than using a statement like i := i - 1