From Clomosy Docs

No edit summary
No edit summary
Line 1: Line 1:
procedure Dec(var Variable Ordinal variable);
<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert">
procedure Dec(var X: Integer); overload;
</div>
 
The Dec procedure decrements the ordinal Variable parameter passed to it.<br>
The Dec procedure decrements the ordinal Variable parameter passed to it.<br>


'''Example:'''<br>
<b>Example</b><br>
:'''Base Syntax'''
<b>TRObject Syntax</b><br>
 
<pre>
  var
var
    Number    : Integer;
  Number    : Integer;
 
  begin
{
    Number := 23;
  Number = 23;
    ShowMessage('Number : '+IntToStr(Number));
  ShowMessage('Number : '+IntToStr(Number));
    Dec(Number);
  Dec(Number);
    ShowMessage('Number-1 : '+IntToStr(Number));
  ShowMessage('Number-1 : '+IntToStr(Number));
  end;
}
 
</pre>
:'''TRObject Syntax'''
<b>Base Syntax</b><br>
<pre>
var
  Number    : Integer;
begin
  Number := 23;
  ShowMessage('Number : '+IntToStr(Number));
  Dec(Number);
  ShowMessage('Number-1 : '+IntToStr(Number));
end;
</pre>


  var
<b>Output:</b><br>
    Number    : Integer;
<div class="alert alert-success" role="alert" data-bs-theme="light">
 
Number : 23<br>
  {
Number-1 : 22
    Number = 23;
</div>
    ShowMessage('Number : '+IntToStr(Number));
    Dec(Number);
    ShowMessage('Number-1 : '+IntToStr(Number));
  }


'''Output:'''<br>
<h2> See Also </h2>
Number : 23<br>
* [[System_Library#Math_Functions | Math Functions]]
Number-1 : 22

Revision as of 10:38, 7 October 2024

The Dec procedure decrements the ordinal Variable parameter passed to it.

Example
TRObject Syntax

var
   Number    : Integer;
 
{
   Number = 23;
   ShowMessage('Number : '+IntToStr(Number));
   Dec(Number);
   ShowMessage('Number-1 : '+IntToStr(Number));
}

Base Syntax

var
   Number    : Integer;
 
begin
   Number := 23;
   ShowMessage('Number : '+IntToStr(Number));
   Dec(Number);
   ShowMessage('Number-1 : '+IntToStr(Number));
end;

Output:

See Also

Retrieved from "http:///index.php?title=Dec&oldid=2595"