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