Difference between revisions of "TIAAddEx"
From SCAR Divi Manual
| Line 10: | Line 10: | ||
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. | 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. | ||
| − | ==Example== | + | ==Examples== |
| + | ===Example 1=== | ||
<source lang="scar"> | <source lang="scar"> | ||
var | var | ||
| − | TIA: TIntArray; | + | TIA: TIntArray; |
| − | + | ||
begin | begin | ||
| − | TIA := [5, | + | 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)); | WriteLn(TIAToStr(TIA)); | ||
end. | end. | ||
| Line 23: | Line 24: | ||
Output: | Output: | ||
| − | + | 9,9,9,9,9,9,9,9,9,9 | |
| + | |||
| + | ===Example 2=== | ||
| + | <source lang="scar"> | ||
| + | var | ||
| + | TIA: TIntArray; | ||
| + | |||
| + | begin | ||
| + | TIA := [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]; | ||
| + | TIAAddEx(TIA, [2, 1]); | ||
| + | WriteLn(TIAToStr(TIA)); | ||
| + | end. | ||
| + | </source> | ||
| + | |||
| + | Output: | ||
| + | 2,2,4,4,6,6,8,8,10,10 | ||
==See Also== | ==See Also== | ||
Revision as of 17:57, 10 December 2012
Contents
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
