Im Array Element löschen

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

[jaenicke]

Zitat von 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.

Das heißt du findest, dass Schüler die lästigen Details wie solche Algorithmen ablaufen usw. gar nicht erst lernen sollen und lieber nur bequeme Wrapper lernen sollen? Grandiose Idee...

[Neutral General]

Zitat von 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.

Was lernst du denn von

List.Delete(4) ?

Gar nichts.
Zum Einstieg ist es durchaus sinnvoll den Schülern beizubringen NACHZUDENKEN.
Einen Eintrag aus einem Array zu löschen benötigt Wissen und Verständnis in einigen Bereichen und dazu ein Stück logisches Denken.
Für das Löschen eines Eintrags aus einer Liste musst du dir die obige Zeile merken und ggf. die Zahl in den Klammern ersetzen.

Die Schüler sollten trotzdem ein paar Stunden später Listen vorgestellt kriegen, nach dem Motto: "Und da hat jemand eine Liste gebaut die all die Funktionen der letzten Stunden bereits beinhaltet, sodass man diese Funktionalität nicht jedes mal neu implementieren muss!"

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

[Glados]

Zitat:

Im Array Element löschen

Das meine ich und nicht irgendwas mit einer TList.

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