Im Array Element löschen

[G4schi]

Guten Tag,

ich möchte in einem Array unter einem bestimmten Index den Eintrag löschen und dann das Array vom Index 0 wieder aufbauen.

Delphi-Quellcode:

 if sWort = sAusgabe then
        begin
          for z:=0 to Length(Kontaktliste) do
          begin
            //Wenn z=i dann soll neuer Durchlauf gestartet werden
            if z = i then
            Continue;
            //Die Länge des Arrays wird durch das Array selbst bestimmt, indem immer +1 addiert wird
            SetLength(Kontaktliste_2,Length(Kontaktliste_2)+1);
            //Übergibt die Werte aus dem 1.Array in das 2.Array
            Kontaktliste_2[z].Anrede := Kontaktliste[z].Anrede;
            Kontaktliste_2[z].Vorname := Kontaktliste[z].Vorname;
            Kontaktliste_2[z].Nachname := Kontaktliste[z].Nachname;
            Kontaktliste_2[z].Anschrift := Kontaktliste[z].Anschrift;
            Kontaktliste_2[z].Ort := Kontaktliste[z].Ort;
            Kontaktliste_2[z].PLZ := Kontaktliste[z].PLZ;
            Kontaktliste_2[z].Telefon := Kontaktliste[z].Telefon;
            Kontaktliste_2[z].Email := Kontaktliste[z].Email;
          end;

Das ist nur ein Teil des ganzen. Ich habe das Problem, wenn ich zB von 3 Einträgen, den zweiten Eintrag löschen will,
er den ersten Eintrag in ein zweites Array übernimmt, den dritten Eintrag,wieso auch immer, nicht übernimmt.

'z' wird nach dem Continue erhöht, aber es werden keine Werte übergeben.
Wenn dieser Part durchgelaufen ist, habe ich ein Array mit 2 Elementen, von den das letzte Element leer ist.

Liegt es vielleicht nicht an diesem Abschnitt?

MfG

[mkinzler]

Beim Löschen, immer von Hinten (oben) nach Vorne (unten)!

[Glados]

2 Sekunden googeln. Nur als Anregung.
https://www.delphi-treff.de/tipps-tr...ecke-entsteht/

[G4schi]

Zitat von Glados:

2 Sekunden googeln. Nur als Anregung.
https://www.delphi-treff.de/tipps-tr...ecke-entsteht/

Ja das habe ich auch gefunden, aber ich bin Anfänger und gleich so ein Code, den ich nur zum Teil verstehe, bringt mich nicht weiter.

[Glados]

Das kann ich verstehen.
Aber deswegen muss man sich ihn ja angucken und verstehen lernen.
Was du da oben jedenfalls machst ist, habe ich auch schon oft gemacht, 2x ins Universum uns zurück.

[mkinzler]

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

[Der schöne Günther]

Ein Hinweis noch, auch wenn man, grade als Anfänger, meist lieber endlich sein Problem lösen will als noch weiter auszuholen und es noch komplizierter zu machen:

Tu dir den Gefallen und geh vom Hardcore-Lowlevel-Array weg. Dein Variablenname sagt schon was du eigentlich brauchst: Kontaktliste. Eine Liste bietet dir gleich fertige Methoden, du kannst also mit einer Zeile "Eintrag Nummer 42 entfernen" und musst nicht alles selbst stricken.

http://docwiki.embarcadero.com/Libra...lections.TList

http://docwiki.embarcadero.com/CodeE..._TList_(Delphi)

[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.

[G4schi]

Zitat von Der schöne Günther:

Ein Hinweis noch, auch wenn man, grade als Anfänger, meist lieber endlich sein Problem lösen will als noch weiter auszuholen und es noch komplizierter zu machen:

Tu dir den Gefallen und geh vom Hardcore-Lowlevel-Array weg. Dein Variablenname sagt schon was du eigentlich brauchst: Kontaktliste. Eine Liste bietet dir gleich fertige Methoden, du kannst also mit einer Zeile "Eintrag Nummer 42 entfernen" und musst nicht alles selbst stricken.

http://docwiki.embarcadero.com/Libra...lections.TList

http://docwiki.embarcadero.com/CodeE..._TList_(Delphi)

Ich habe das schon alles gestern selbst gegoogelt. Ich SOLL aber das so machen, mit Record und Array, um das halt zu lernen.

MfG

[jaenicke]

Zitat von G4schi:

Ich SOLL aber das so machen, mit Record und Array, um das halt zu lernen.

Das kannst du gerne auch direkt in der Frage dazuschreiben. Dann bekommst du auch keine Alternativvorschläge wie es besser geht. (Ich wollte nämlich auch gerade etwas in der Richtung schreiben.)

Hier findest du eine gute Erklärung zu dem Thema, wo nicht nur ein Beispiel, sondern eben auch die Erklärung dabei ist:
http://pages.cs.wisc.edu/~rkennedy/array-delete