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;  
 
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

See Also

• TEADelete