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...") |
|||
| 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== | <!-- ==See Also== | ||
Revision as of 10:26, 30 April 2012
Contents
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
