TIAAddEx

Definition

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

Availability

SCAR Divi 3.38 > Current

Description

Adds the values from the TIntArray Values to the values in TIA. The functions alternates between the values in Values. When Values 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
• TIASubtractEx
• TIAMultiplyEx
• TIADivideEx