Difference between revisions of "TEAUnique"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> procedure TEAUnique(var TEA: TExtArray); </source> ==Availability== SCAR Divi 3.34 > Current ==Description== This function rem...") |
|||
| (One intermediate revision by the same user not shown) | |||
| Line 13: | Line 13: | ||
<source lang="scar"> | <source lang="scar"> | ||
var | var | ||
| − | TEA: TExtArray; | + | TEA: TExtArray; |
| − | + | ||
| − | |||
begin | begin | ||
TEA := [0.1, 0.1, 1.8, 2, 3.6, 5, 3.6]; | TEA := [0.1, 0.1, 1.8, 2, 3.6, 5, 3.6]; | ||
TEAUnique(TEA); | TEAUnique(TEA); | ||
| − | + | WriteLn(TEAToStr(TEA)); | |
| − | |||
end. | end. | ||
</source> | </source> | ||
Output: | Output: | ||
| − | 0,1 | + | 0.1,1.8,2,3.6,5 |
| − | |||
| − | |||
| − | |||
| − | |||
| − | + | ==See Also== | |
*[[TEADelete]] | *[[TEADelete]] | ||
| + | <!-- | ||
*[[TEARemove]] | *[[TEARemove]] | ||
*[[TEARemoveEx]] --> | *[[TEARemoveEx]] --> | ||
Latest revision as of 15:23, 22 May 2012
Definition
procedure TEAUnique(var TEA: TExtArray);
Availability
SCAR Divi 3.34 > Current
Description
This function removes all of the duplicate extendeds in a given TExtArray TEA.
Example
var TEA: TExtArray; begin TEA := [0.1, 0.1, 1.8, 2, 3.6, 5, 3.6]; TEAUnique(TEA); WriteLn(TEAToStr(TEA)); end.
Output:
0.1,1.8,2,3.6,5
