Im Array Element löschen

[Olli73]

Zitat von G4schi:

Zitat von mkinzler:

for z:=Length(Kontaktliste)-1 downto 0 do

Mein zweites Array wird nun verkürzt, aber das letzte Element aus dem ersten Array nimmt es noch immer nicht mit.

Du benutzt immer Kontaktliste_2[z].Anrede := Kontaktliste[z].Anrede; etc., aber bis zu dem zu löschenden Eintrag muss es lauten Kontaktliste_2[z - 1].Anrede := Kontaktliste[z].Anrede; . Der Index muss dort ja dort unterschiedlich sein, da ein Element "fehlt".

Edit: Und setze die Länge besser vor der Schleife mit SetLength(Kontaktliste_2, Length(Kontaktliste)-1);

[Mavarik]

Zitat von Olli73:

Zitat von G4schi:

Zitat von mkinzler:

for z:=Length(Kontaktliste)-1 downto 0 do

Mein zweites Array wird nun verkürzt, aber das letzte Element aus dem ersten Array nimmt es noch immer nicht mit.

Du benutzt immer Kontaktliste_2[z].Anrede := Kontaktliste[z].Anrede; etc., aber bis zu dem zu löschenden Eintrag muss es lauten Kontaktliste_2[z - 1].Anrede := Kontaktliste[z].Anrede; . Der Index muss dort ja dort unterschiedlich sein, da ein Element "fehlt".

Edit: Und setze die Länge besser vor der Schleife mit SetLength(Kontaktliste_2, Length(Kontaktliste)-1);

Oder

Kontaktliste_2[High(Kontaktliste_2)].Anrede := Kontaktliste[z].Anrede;
und noch besser 1x nur

 Setlength(KontaktListe_2,length(Kontaktliste)-1); oder

Delphi-Quellcode:

For z:=i+1 to high(KontaktListe_2) do
  begin
    KontaktListe_2[z-1] := KotaktListe_2[z];
  end;

oder ich gehe mal von Record aus...

Delphi-Quellcode:

Move(KontaktListe_2[I+1],KontaktListe_2[I],(Length(KontaktListe_2)-I) * Sizeof(KontaktListe[0]));  // Sizeof(Type)
Setlength(KontaktListe_2,Length(KontaktListe_2)-1);

Das würde doch ein Lerneffekt haben... und schneller als eine TList ist es auch...

Mavarik

[Luckie]

Oder mit einem Array: Man kopiert den Record des letzten Elements auf das zu löschende Element und "schneidet" das letzte Elemente vom Array ab.

[Zacherl]

Eine generische Lösung wäre beispielsweise:

Delphi-Quellcode:

class procedure TArrayHelper.Delete<T>(var A: TArray<T>; Index: Integer);
var
  I: Integer;
begin
  for I := Index to High(A) - 1 do
  begin
    A[I] := A[I + 1];
  end;
  SetLength(A, Length(A) - 1);
end;

class procedure TArrayHelper.Insert<T>(var A: TArray<T>; Index: Integer; const Item: T);
var
  I: Integer;
begin
  SetLength(A, Length(A) + 1);
  for I := High(A) - 1 downto Index do
  begin
    A[I + 1] := A[I];
  end;
  A[Index] := Item;
end;

[Mavarik]

Zitat von Luckie:

Oder mit einem Array: Man kopiert den Record des letzten Elements auf das zu löschende Element und "schneidet" das letzte Elemente vom Array ab.

klar, wenn die ggf. sortiere Reihenfolge egal ist, ist das noch schneller...