Move() pour Insérer/Supprimer un poste(s) à partir d'un tableau dynamique de la chaîne

Je l'ai montré comment faire pour supprimer des éléments d'un tableau dynamique avant:

• Delphi Q&A: Comment puis-je supprimer un élément d'un tableau?

Dans cet article, j'ai commencer avec le code suivant:

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[i - 1] := A[i];
  SetLength(A, ALength - 1);
end;

Vous ne peut pas aller mal avec ce code. Utiliser n'importe quelle valeur pour X vous le souhaitez, dans votre cas, le remplacer par string. Si vous souhaitez obtenir de l'amateur et de l'utilisation Move, puis il y a la façon de le faire, aussi.

procedure DeleteX(var A: TXArray; const Index: Cardinal);
var
  ALength: Cardinal;
  TailElements: Cardinal;
begin
  ALength := Length(A);
  Assert(ALength > 0);
  Assert(Index < ALength);
  Finalize(A[Index]);
  TailElements := ALength - Index;
  if TailElements > 0 then
    Move(A[Index + 1], A[Index], SizeOf(X) * TailElements);
  Initialize(A[ALength - 1]);
  SetLength(A, ALength - 1);
end;

Depuis X est string, le Finalize appel est équivalent à l'affectation de la chaîne vide pour que l'élément de tableau. J'utilise Finalize dans ce code, bien que, parce qu'il va travailler pour tous tableau-les types d'élément, même des types qui incluent des enregistrements, des interfaces, des chaînes et des autres tableaux.

Pour l'insertion, vous passez les choses de la direction opposée:

procedure InsertX(var A: TXArray; const Index: Cardinal; const Value: X);
var
  ALength: Cardinal;
  TailElements: Cardinal;
begin
  ALength := Length(A);
  Assert(Index <= ALength);
  SetLength(A, ALength + 1);
  Finalize(A[ALength]);
  TailElements := ALength - Index;
  if TailElements > 0 then begin
    Move(A[Index], A[Index + 1], SizeOf(X) * TailElements);
  Initialize(A[Index]);
  A[Index] := Value;
end;

Utilisation Finalize lorsque vous êtes sur le point de faire quelque chose qui est en dehors des limites de la langue, comme l'utilisation de la non-type-safe Move procédure pour remplacer une variable d'un compilateur-géré type. Utilisation Initialize lorsque vous êtes re-entrer dans la définition de la partie de la langue. (Le langage définit ce qui arrive quand une matrice augmente ou réduit avec SetLength, mais il ne définit pas comment faire pour copier ou supprimer des chaînes sans l'aide d'une chaîne-instruction d'affectation.)

OriginalL'auteur Rob Kennedy

Si je voulais insérer une chaîne dans une liste de chaînes de caractères, je ne l'utiliserais TStringList.Insérer. (Il le fait rapidement à l'aide du Système.Déplacer.)

Aucune raison particulière pour laquelle vous êtes à l'aide d'un tableau au lieu d'un TStringList?

OriginalL'auteur Mason Wheeler

Juste envie d'ajouter ce pour tout les gens qui viennent ici dans l'avenir.

La modification de Rob code, je suis venu avec cette façon de faire qui utilise la plus récente TArray<T> type de constructions.

type
  TArrayExt = class(TArray)
    class procedure Delete<T>(var A: TArray<T>; const Index: Cardinal; Count: Cardinal = 1);
  end;

implementation

class procedure TArrayExt.Delete<T>(var A: TArray<T>; const Index: Cardinal;
    Count: Cardinal = 1);
var
  ALength: Cardinal;
  i: Cardinal;
begin
  ALength := Length(A);
  Assert(ALength > 0);
  Assert(Count > 0);
  Assert(Count <= ALength - Index);
  Assert(Index < ALength);

  for i := Index + Count to ALength - 1 do
    A[i - Count] := A[i];

  SetLength(A, ALength - Count);
end;

Une chose semblable peut être fait pour l'insérer.

(Ne recherche pas ce pour obtenir marqué comme réponse, juste à la recherche de fournir un exemple qui a été trop long pour tenir dans les commentaires sur Rob excellente réponse.)

(Fixé à l'adresse de Rob commentaires ci-dessous.)

OriginalL'auteur jep

Si vous utilisez le Système.Déplacer à mettre les éléments dans un tableau de chaîne de caractères, vous devez être conscient que les chaînes que là où avant le Déménagement (et désormais remplacée), avaient un nombre de références de -1 pour les chaines, ou > 0 pour les variables chaînes de caractères. Les chaines ne doit pas être modifiée, mais les chaînes de variables doivent être traités en conséquence: Vous devez manuellement réduire leur référence-comte (avant qu'ils ne soient écrasés!). Pour ce faire, vous devez essayer quelque chose comme cela:

Dec(PStrRec(IntPtr(SomeString)-12).refCnt);

Mais si la référence-comte atteint zéro, vous devez également finaliser la mémoire associée à l' - quelque chose de Delphes lui-même n'beaucoup mieux si vous le permettez, c'est le compilateur de la magie pour les chaînes. Ah, et aussi : si les chaînes que vous voulez copier viennent de la même matrice que votre écriture, le besoin de l'administration devient très lourd, très rapidement!

Donc, si c'est d'une certaine façon possible afin d'éviter tous ce manuel d'entretien ménager, je vous conseille de laisser Delphi gérer lui-même.

OriginalL'auteur PatrickvL