Im Array Element löschen

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

[Glados]

Zitat:

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

Darf man fragen wer dich dazu zwingt diese 0815-Lösungen zu verwenden statt es direkt richtig zu machen?

[jaenicke]

Zitat von Glados:

Darf man fragen wer dich dazu zwingt diese 0815-Lösungen zu verwenden statt es direkt richtig zu machen?

Das ist in der Schule usw. so üblich...

[Glados]

Dann sind das meiner Meinung nach schlechte Lehrer (auch wenn ich auf die Mütze bekomme).
Dann sollen sie doch ein vernünftigeres Szenario schaffen und für Szenarien wie dieses hier direkt die richtigen Lösungen lehren und verwenden.

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

[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