Sorry its in members forum. Doubt it will be a problem to share the function though.
Complete credits to Frement.
Simba Code:
function array_unique(src: TVariantArray): TVariantArray;
var I, O, E: Integer;
Skip: Boolean;
begin
SetArrayLength(Result, 1);
Skip := False;
E := 0;
for I := 0 to High(src) do begin
for O := 0 to High(Result) do begin
if (Result[O] = src[I]) then begin
Skip := True;
break;
end;
end;
if not (Skip) then begin
SetArrayLength(Result, E+1);
Result[E] := src[I];
Inc(E);
end;
Skip := False;
end;
end;