TIAAddEx

Definition

procedure TIAAddEx(var TIA: TIntArray; const Additions: TIntArray);

Availability

SCAR Divi 3.38 > Current

Description

Adds the values from the TIntArray Additions to the values in TIA. The items in Additions are added in the order they are given. When the end of Additions is reached, it will start again from the first item. When Additions is empty, TIA remains unchanged.

Examples

Example 1

var
  TIA: TIntArray;
  
begin
  TIA := [0, 1, 2, 3, 4, 5, 6, 7, 8, 9];
  TIAAddEx(TIA, [9, 8, 7, 6, 5, 4, 3, 2, 1, 0]);
  WriteLn(TIAToStr(TIA));
end.

Output:

9,9,9,9,9,9,9,9,9,9

Example 2

var
  TIA: TIntArray;
  
begin
  TIA := [0, 1, 2, 3, 4, 5, 6, 7, 8, 9];
  TIAAddEx(TIA, [2, 1]);
  WriteLn(TIAToStr(TIA));
end.

Output:

2,2,4,4,6,6,8,8,10,10

See Also

• TIAAdd