How to delete an item from a dynamic (string) array

var
myArray: TStringArray;
...//delete fifth element
DeleteArrayItem(myArray, 5) ;

~~~~~~~~~~~~~~~~~~~~~~~~~
type
   TStringArray = array of string;

procedure DeleteArrayItem(var X: TStringArray; const Index: Integer) ;
begin
   if Index > High(X) then Exit;
   if Index < Low(X) then Exit;
   if Index = High(X) then
   begin
     SetLength(X, Length(X) - 1) ;
     Exit;
   end;
   Finalize(X[Index]) ;
   System.Move(X[Index +1], X[Index],(Length(X) - Index -1) * SizeOf(string) + 1) ;
   SetLength(X, Length(X) - 1) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» How to execute a method (procedure/function) by name
« How to draw transparent text on Windows Desktop

• 1
• 2
• 3
• 4
• 5