Удаление и добавление значений динамического массива

Code:

type

TArrayString = arrayofstring;

procedure DeleteArrayIndex(var X: TArrayString; Index: Integer);

begin

ifIndex > High(X) then Exit;

ifIndex < Low(X) then Exit;

ifIndex = 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;

// Example : Delete the second item from array a

// Beispiel : Losche das 2. Element vom array a

procedure TForm1.Button2Click(Sender: TObject);

var

a: TArrayString;

begin

DeleteArrayIndex(a, 2);

end;

Code:

procedure delElem( var A:TRectArray; Index:integer );

var Last : integer;

begin

  Last:= high( A );

  ifIndex <  Last then move( A[Index+1], A[ Index ],

      (Last-Index) * sizeof( A[Index] )  );

  setLength( A, Last );

end;

procedure addElem( var A: TRectArray; Index: integer;

                                      ANew: TRect );

var Len : integer;

begin

  Len:= Length( A );

  ifIndex > = Len thenIndex := Len+1;

  setLength( A, Len+1);

  move( A[Index], A[ Index+1 ],

        (Len-Index) * sizeof( A[Index] ));

  A[Index] := ANew;

end;