TEAUnique

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;      
  Idx: Integer;

begin
  TEA := [0.1, 0.1, 1.8, 2, 3.6, 5, 3.6];
  TEAUnique(TEA);  
  for Idx := 0 to High(TEA) do
    WriteLn(TEA[Idx]);
end.

Output:

0,1
1,8
2
3,6
5