Array aus Record löschen

[EWeiss]

Kleine Anschluss frage

Delphi-Quellcode:

procedure Delete(var SrcArray: TArray<TSprite>; Index: Integer);
var
  I: Integer;
begin

  for I := (Index + 1) to (Length(SrcArray) - 1) do
    SrcArray[I- 1] := SrcArray[I];

  Setlength(SrcArray, length(SrcArray) - 1);
end;

Ist das schnell genug oder sollte ich hier das Array mit Move verschieben ?

gruss

[himitsu]

Da ja keine Delphi-Verison angeeben wurde ....


Delphi kann inzwischen auch endlich Insert/Delete für dynamische Arrays (k.A. warum das so viele Jahre gedauert hat)
und es hat eine nette statische Klasse TArray in System.Generics.Collections .


Move ... nur wenn du weißt was du machst und dabei nicht z.B. eine Speicherverwaltung/Referenzzählung der Felder zerschrottest.

[EWeiss]

Zitat von himitsu:

Da ja keine Delphi-Verison angeeben wurde ....


Delphi kann inzwischen auch endlich Insert/Delete für dynamische Arrays (k.A. warum das so viele Jahre gedauert hat)
und es hat eine nette statische Klasse TArray in System.Generics.Collections .

D2010.. Ja muss das in mein Profil wieder addieren.
Sorry!

Ok denke mal dann ist das so in Ordnung mehr als 200 Icons(Verknüpfungen liegen eh nicht auf dem Desktop)
Und es ist auch nur eine Sicherheitsmaßnahme damit ich kein leeres Icon auf der Bar zu sehen bekomme.

Delphi-Quellcode:

  // Prüfen ob wir einige der Verknüpfungen deaktivieren (verstecken) müssen.
  for K := High(gs) downto ID_FIRST do //ID_FIRST = 6 erster Icon Eintrag im Array 0 > 6 reserviert für die Grafische Oberfläche
  begin
    if gS[K].h_Bitmap = 0 then
    begin
      Delete(gs, K);
      dec(Count);
      if gp.RecycleBin = K then
        gp.RecycleBin := 0;
    end;

    //Das RecycleBin-Array entsprechend ändern
    if gp.RecycleBin > Count then
      gp.RecycleBin := Count;
  end;

gruss

[SneakyBagels]

Zitat:

Delphi kann inzwischen auch endlich Insert/Delete für dynamische Arrays (k.A. warum das so viele Jahre gedauert hat)
und es hat eine nette statische Klasse TArray in System.Generics.Collections .

Darf man fragen wo man das findet?

[EWeiss]

Zitat von SneakyBagels:

Zitat:

Delphi kann inzwischen auch endlich Insert/Delete für dynamische Arrays (k.A. warum das so viele Jahre gedauert hat)
und es hat eine nette statische Klasse TArray in System.Generics.Collections .

Darf man fragen wo man das findet?

Ich denke mal wenn du die uses Generics hinzufügst.

gruss

[SneakyBagels]

Leider nicht fündig geworden. Ich finde nur Sort aber weder Delete noch Insert.

[EWeiss]

Zitat von SneakyBagels:

Leider nicht fündig geworden. Ich finde nur Sort aber weder Delete noch Insert.

Ist wohl abhängig von der Delphi Version die du verwendest.

gruss

[himitsu]

Alt und "Neu".

B := Copy(A) oder B := Copy(A, 1, 3) geht ja auch schon längere Zeit ... nur Delete und Insert fehlte halt.



Weiß nicht genau seit wann es mit DynArrays geht, aber seit XE7 kann man noch ganz andere Dinge, wie "string like"-Operationen ala

Delphi-Quellcode:

var A, B, C: array of Byte;  // TArray<Byte> oder TBytes

A := B + C;

A := [1, 2, 3];
A := B + [1, 2, 3];

[SneakyBagels]

Delete, Insert, Copy für dynamische Arrays. Vereinfacht mein Leben bestimmt sehr in Zukunft. Danke für den Tipp

[EWeiss]

Zitat von SneakyBagels:

Delete, Insert, Copy für dynamische Arrays. Vereinfacht mein Leben bestimmt sehr in Zukunft. Danke für den Tipp

Bestimmt..
Die Frage nur ob das sinnvoll ist für einen einzigen Aufruf die Generics mit einzubinden.
Das bauscht den Code wieder um einige KB auf. (Wäre in meinem Fall also unnötig)

Wenn man viel mit Arrays unterwegs ist. Warum nicht!
Dann wird sich das lohnen.

gruss