Array mit Recordinhalten löschen

[sx2008]

Irgendwie seltsam, dass Delphi Programmierer so blind sind und immer nur Arrays sehen wo in anderen Programmiersprachen (z.B. Python, C#,...Lisp!) schon längst Listen verwendet werden.

Arrays und Listen sind sich sehr ähnlich, aber nur aus Listen kann man schmerzfrei Elemente löschen.
Intern können Listen auch über Arrays nachgebildet werden aber entscheidend ist was dem Programmierer als API angeboten wird:

(dynamische) Arrays
* Wahlfreier Zugriff auf Elemente (über Index)
* nachträgliches Vergrössern/Verkleinern des Array

Listen
* Wahlfreier Zugriff auf Elemente (über Index und Inhalt)
* automatisches Vergrössern/Verkleinern der Liste
* Löschen von Elementen (ohne das Löcher zurückbleiben)
* Einfügen von Elementen an beliebiger Stelle

[Popov]

Vor allem spätestens sein TObjectList (k. A. ab welchem Delphi). Wobei TList auch nicht viel komplizierter ist, aber TObjectList macht es endgültig Kinderleicht.

[DeddyH]

Dann muss man aus dem Record aber erst einmal eine Klasse machen.

[Popov]

Also bei dem oberen Beispiel wäre es kein Akt. record gegen class tauschen, auf property verzichten, der Rest mit TObjectList.

Oder etwas aufwändiger - eine Klasse ableiten.

[DeddyH]

Oder je nach Delphi-Version eine generische Liste (ich wundere mich, dass das noch niemand vorgeschlagen hat).

[Furtbichler]

Zitat von sx2008:

Irgendwie seltsam, dass Delphi Programmierer so blind sind und immer nur Arrays sehen wo in anderen Programmiersprachen (z.B. Python, C#,...Lisp!) schon längst Listen verwendet werden.

Arrays sind schneller und wenn ich die Schmerzfrei-Lösch-Funktionalität nicht brauche, hänge ich mir keine Liste ans Bein. Warum auch?

Im Übrigen kann man auch mit FaustkeilenArrays trefflich und performant Elemente löschen. Vor allen Dingen kann man damit eins: Lernen, wie es geht.

[sx2008]

Zitat von Furtbichler:

Arrays sind schneller und wenn ich die Schmerzfrei-Lösch-Funktionalität nicht brauche, hänge ich mir keine Liste ans Bein. Warum auch?

Wie ich schon gesagt habe, viele Delphi Entwickler sind einfach blind gegenüber Techniken die sich in anderen Programmiersprachen schon längst durchgesetzt haben.

Delphi-Quellcode:

 // a.)
// löschen eines Elements in einem Array
var
  i, x : integer;
begin
  x := 4; // Element Position die gelöscht werden soll
  for i:= x+1 to High(MyArray) do
  begin
    MyArray[i-1] := MyArray[i];
  end;
  SetLength(MyArray, Length(MyArray)-1);
end;

// b.)
// und jetzt das Gleiche mit einer Liste
MyList.Delete(4);

Und jetzt stelle man sich vor, dass man 5 versch. Arrays bzw. Listen hat.
Welcher Lösung wäre zu bevorzugen 5 * a.) oder 5 * b.) ?
Den Code bei a.) habe einfach so hingeschrieben; es ist gut möglich
dass er Fehler hat.
(Es sind übrigens min. 2 Fehler enthalten - wer findet sie?)
Bei b.) ist es ausgeschlossen, dass ein Fehler enthalten ist.

[Furtbichler]

Ich verwende auch in C# Arrays, wenn mir das reicht, insofern bin ich kein blinder Delphi-Entwickler.

Übrigens lösche ich in Arrays, in dem ich z.B. das letzte Element in den zu löschenden Index kopiere, die Anzahl verringere und freue mich, das ich das in O(1) hinbekommen habe.

Aber Du musst schon genau lesen, was ich schreibe. Wenn ich nicht löschen muss, sondern z.B. nur einen Container für ein paar Dinger brauche, nehme ich ein Array. Sonst etwas anderes. Eine Liste nehme ich selten, eher eine Map, Dictionary oder whatever.

[BUG]

Zitat von Furtbichler:

Übrigens lösche ich in Arrays, in dem ich z.B. das letzte Element in den zu löschenden Index kopiere, die Anzahl verringere und freue mich, das ich das in O(1) hinbekommen habe.

Wenn man so mit Arrays arbeitet, hat mal schon fast eine Speicherverwaltung mit fester Blocklänge.
Wenn man eine direkte Freiblockliste anstellen eines "Pegelstands" verwendet, kann man sogar auf das potenziell aufwendige Kopieren des letzten Elements verzichten

[himitsu]

Gerade für die Datensicherheit beim Bearbeiten von Arrays hab ich endlich mal einen Vorschlag gemacht. (darf man gerne für voten)
http://qc.embarcadero.com/wc/qcmain.aspx?d=110391
Die schnelleren Zugriffe über Move und Co. sind da ja schonmal ganz schön fehleranfällig.

Derartige Codes kann man aber auch schon in älteren Delphis nutzen, außer daß man sich dort die Funktionen für jeden Arraytypen einzeln implementieren müste/sollte.