Hallo,
how can I delete one element from VARIANT array?
e.g.

Clearly, one can use sub, e.g.:
but, why ARRAY DELETE does not work???
Thanks
how can I delete one element from VARIANT array?
e.g.
Code:
LOCAL vVar() AS VARIANT REDIM vVar(1 TO 10) ... ARRAY DELETE vVar(5) '<-- Error 482 in ....: Data type mismatch

Clearly, one can use sub, e.g.:
Code:
SUB DelElVarArray(BYVAL lDelElementNr AS LONG, _ vVarArray() AS VARIANT) LOCAL lFirstNr AS LONG LOCAL lElements AS LONG LOCAL lNr AS LONG LOCAL lNr2 AS LONG LOCAL vVar() AS VARIANT lFirstNr = LBOUND(vVarArray) lElements = UBOUND(vVarArray) REDIM vVar(lFirstNr TO lElements) lNr = lFirstNr DO vVar(lNr) = vVarArray(lNr) INCR lNr LOOP UNTIL lNr > UBOUND(vVarArray) lElements = UBOUND(vVarArray) - 1 REDIM vVarArray(lFirstNr TO lElements) lNr = lFirstNr lNr2 = lFirstNr DO IF lNr <> lDelElementNr THEN vVarArray(lNr2) = vVar(lNr) INCR lNr2 END IF INCR lNr LOOP UNTIL lNr > lElements END SUB
Thanks
Comment