System.Delete und dynamische Arrays

[Bbommel]

Hi alle,

ich brauche mal euer Schwarmwissen, weil ich mich gerade über mich selber bzw. über alten Code von mir wundere. Ich habe seit sehr, sehr vielen Jahren eine olle Funktion "RemoveFromRealArray", die genau das macht, was sie sagt: Löscht aus einem Array von Real-Werten einen per Index angegebenen Eintrag. Damals habe ich da irgendwas mit "Move" gemacht, um die Elemente eins nach vorne zu schieben. Stand bestimmt so irgendwo im Netz oder hier in der DP - und ist ja auch kein Hexenwerk und funktioniert.

Jetzt wollte ich nach längerer Zeit mal wieder was aus einem Array von einem anderen Typ löschen (meistens arbeiten wir bei uns im Code mit Listen oder anderen Strukturen) und habe mich gewundert, dass es für diese Standardaufgabe nix fertiges gibt. Gibt ja auch mittlerweile TArray und so.

Letztlich bin ich dann ganz einfach bei System.Delete gelandet und wundere mich, warum ich da früher was eigenes für gebastelt habe. Mein alter Code muss so von 2008 oder 2009 sein (damals hatten wir leider noch kein Repository, insofern kann ich nicht nachgucken). Konnte System.Delete damals noch kein Array? Oder gab und gibt es gute Gründe, es anders zu machen? Oder hab ich das damals einfach nur übersehen und es erst jetzt, 16-17 Jahre später bemerkt?

Vielleicht kann ja jemand etwas Licht ins Dunkel bringen. Vielleicht hat ja jemand D2007 und kann mal schauen, ob das dort auch schon ging.

[Frickler]

Bei Delphi XE6 gehts nicht, bei Delphi 10.2 gehts schon.

[Bbommel]

Zitat von Frickler:

Bei Delphi XE6 gehts nicht, bei Delphi 10.2 gehts schon.

Danke dir fürs Testen/Nachschauen. XE6 ist definitiv neuer als der Code (zumindest seine ursprüngliche Form) - das erklärt dann, warum ich das so gelöst habe.

[himitsu]

TArray<> ist garnicht nötig ... geht mit allen dynamischen Arrays.

Aber falls du doch TArray meints, die Klasse.
Da gibt es z.B. auch so ein nettes TArray.Sort (aber leider nur für sortierte Arrays)


Delete und Insert wurde, nach über 20 Jahren, endlich im XE7 repariert hinzugefügt,
unter dem Thema "string-like array operators"

ebenso wie

Delphi-Quellcode:

const
  C: array of Cardinal = [257];

var
  A, B: array of string;

A := A + B;
A := A + ['aa'];
A := A + ['bb', 'cc', 'dd'];

https://docwiki.embarcadero.com/RADS...Types_(Delphi)

[Bbommel]

Zitat von himitsu:

Delete und Insert wurde, nach über 20 Jahren, endlich im XE7 repariert hinzugefügt,
unter dem Thema "string-like array operators"

Ah, alles klar. Danke für die genaue Aufklärung und die zeitliche Eingrenzung.

Das Hinzufügen mit A:=A+['SomeString'] nutze ich schon länger fleißig, aber das in dem Zuge auch Delete und Insert angepasst wurden, ist komplett an mir vorbeigegangen (ich hab aber bis gestern auch nicht mehr danach gesucht - zumindest ich baue viel öfter ein Array zusammen, als dass ich mal was daraus löschen muss).

Danke an alle - wieder was gelernt!

[freimatz]

Zitat von Bbommel:

Das Hinzufügen mit A:=A+['SomeString'] nutze ich schon länger fleißig, ...

Das ist aber eine relativ langsame Operation. Wenn Du das in einer Schleife machst dann erwäge es unter Umständen anders zu machen.

[Bbommel]

Zitat von freimatz:

Zitat von Bbommel:

Das Hinzufügen mit A:=A+['SomeString'] nutze ich schon länger fleißig, ...

Das ist aber eine relativ langsame Operation. Wenn Du das in einer Schleife machst dann erwäge es unter Umständen anders zu machen.

Die Stellen, an denen ich das nutze, sind bei mir keine zeitkritischen Punkte, aber dennoch ein guter Hinweis.

Zum Verständnis: meinst du langsam, weil bei jedem Schleifendurchlauf einzeln die Länge angepasst und damit Speicher reserviert werden muss und man sollte daher, bei bekannter Gesamtlänge, besser vorweg ein "SetLength" auf die Gesamtlänge setzen? Oder ist der Ansatz mit A:=A+['somestring'] noch langsamer, als wenn man früher in einer Schleife ein Setlength(A,length(A)+1) gemacht hat?

Falls letzteres der Fall ist, wäre das gut zu wissen, denn solche alten Stellen ändere ich teilweise, weil ich die moderne Variante viel besser lesbarer finde (und es halt nur eine anstatt zwei oder drei Zeilen sind), aber ich will den Code natürlich nicht unnötig langsam machen, selbst wenn es an den Stellen nicht kritisch ist.

[freimatz]

Ja, vorweg ein "SetLength" auf die Gesamtlänge hilft bei der Geschwindigkeit.
Es muss sonst nicht nur "die Länge angepasst und damit Speicher reserviert werden", sondern auch noch der alte Inhalt in den neuen Speicher übertragen werden.
Aber: mir ist Lesbarkeit auch sehr wichtig. Ein einfaches "+" ist dann oft doch besser.

[Uwe Raabe]

Zitat von freimatz:

Es muss sonst nicht nur "die Länge angepasst und damit Speicher reserviert werden", sondern auch noch der alte Inhalt in den neuen Speicher übertragen werden.

Ein SetLength auf einen String oder ein Array behält den bisherigen Array-Inhalt bei, außer natürlich Elemente die bei einer Verkürzung entfernt werden.

Zitat:

For a dynamic array variable, SetLength reallocates the array referenced by S to the given length. Existing elements in the array are preserved and newly allocated space is set to 0 or nil.

[himitsu]

Jupp, es wird erstmal versucht dahinterligender freier Speicher anzuhängen
und wenn das nicht geht, dann wird neuer Speicher reserviert und der Inhalt umkopiert. (inkl. AdressAnpassungen, z.B. für WeakVariablen)