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.