Array aus Record löschen

[EWeiss]

Zitat von himitsu:

http://www.delphipraxis.net/192817-s...parameter.html

Hat das irgendwelche Auswirkungen ? Bitte siehe mein EDIT.
Wird das Teil langsamer oder zu irgendwelchen Einstellungen inkompatibel?

Zitat:

Var ist schon in Ordnung.

Ja danke Olli
Es geht mir um mein EDIT: im vorherigen Beitrag..

gruss

[himitsu]

Ich hab auch ein EDIT im Post.

[EWeiss]

Zitat von himitsu:

Ich hab auch ein EDIT im Post.

Ja habe schon verstanden es ist dann ein "Open Array"
Nur welchen vor oder Nachteil bringt das für mich.
Habe keinen Bock den Code deshalb jetzt komplett umschreiben zu müssen.

Dann mache ich es lieber ohne Procedure.

gruss

[himitsu]

Es ist schneller? (das Open Array kopiert praktisch die Daten/Zeiger, die von außen rein kommen, in seine eigene Struktur rein)

Und vorallem "es funktioniert".

[EWeiss]

Zitat von himitsu:

Es ist schneller? (das Open Array kopiert praktisch die Daten/Zeiger, die von außen rein kommen, in seine eigene Struktur rein)

Und vorallem "es funktioniert".

OK Danke.. Das reicht mir wenn ich sonst nichts tun muss
Danke für eure Hilfe.

gruss

[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