Welcome to the Tweaking4All community forums!
When participating, please keep the Forum Rules in mind!
Topics for particular software or systems: Start your topic link with the name of the application or system.
For example “MacOS X – Your question“, or “MS Word – Your Tip or Trick“.
Please note that switching to another language when reading a post will not bring you to the same post, in Dutch, as there is no translation for that post!
Again a code snippet, in this case a simple function to remove an element form an array.
No matter what kind of array you're using, simple numbers or an array of records, or even objects, this function (if adapted to your array type of course) will do the trick.
With objects: do not forget to destroy the removed object!
type
TXArray = array of X; ...
procedure DeleteX(var A: TXArray; const Index: Cardinal);
var
ALength: Cardinal;
i: Cardinal;
begin
ALength := Length(A);
Assert(ALength > 0);
Assert(Index < ALength);
for i := Index + 1 to ALength - 1 do
A := A;
SetLength(A, ALength - 1);
end;
