Questão de Informática — TRT - 10¬ REGI+O (DF e TO) — 2004 — Diversas

O código que se segue apaga um determinado elemento, aIndex, dentro de um array chamado FArray. procedure TtdRecordList.Delete(aIndex : integer); begin if (aIndex < 0) or (aIndex >= Count) then rlError(tdeIndexOutOfBounds, 'Delete', aIndex); dec(FCount); if (aIndex < Count) then S ystem.D e le te ((FArray + (succ(aInde x) * FElementSize))^, (FArray + (aIndex * FElementSize))^, (Count - aIndex) * FElementSize); end;