Array aus Record löschen

[EWeiss]

Löschen des Array

Delphi-Quellcode:

    if gS[K].h_Bitmap = 0 then
    begin
      for Index := (K + 1) to (Length(gs) - 1) do
        gs[Index - 1] := gs[Index];

      Setlength(gs, length(gs) - 1);

      dec(Count);
      if gp.RecycleBin = K then
        gp.RecycleBin := 0;
    end;

packe ich das ganze jetzt in eine procedure macht das Teil Ärger ;)
Manchmal hat man echt ein Brett vorm Kopf.

Delphi-Quellcode:

procedure Delete(var SrcArray: Array of 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); //<< inkompatible Typen
end;

Aufruf

Delphi-Quellcode:

Delete(gs, K);

verwende ich jetzt hier direkt gs dann funktioniert das ganze. Warum?

Delphi-Quellcode:

Setlength(gs, length(SrcArray) - 1); //<< inkompatible Typen

es ist unabhängig vom var Parameter.
Auch dann geht es nicht.

gruss

[Olli73]

Zitat:

Zitat von EWeiss (Beitrag 1372389)

Delphi-Quellcode:

procedure Delete(var SrcArray: Array of TSprite; Index: Integer);
var
  I: Integer
begin
  ...
  Setlength(SrcArray, length(SrcArray) - 1); //<< inkompatible Typen
end;

Das hatten wir heute schon mal: Siehe hier

Lösung: TArray<TSprite>

[EWeiss]

Zitat:

Zitat von Olli73 (Beitrag 1372396)

Zitat:

Zitat von EWeiss (Beitrag 1372389)

Delphi-Quellcode:

procedure Delete(var SrcArray: Array of TSprite; Index: Integer);
var
  I: Integer
begin
  ...
  Setlength(SrcArray, length(SrcArray) - 1); //<< inkompatible Typen
end;

Das hatten wir heute schon mal: Siehe hier

Lösung: TArray<TSprite>

Würde eventuell gehen. Danke.
Das Problem ist nur das ich einen Var Parameter übergebe.. eventuell entfernen?
Müsste eigentlich auch ohne gehen.

Ich kann es im Moment nicht testen da das nur eine Vorsichtsmaßnahme ist falls das HBitmap einmal 0 sein sollte.

EDIT:
Ich weiß jetzt nicht welche Auswirkungen es hat wenn ich

Delphi-Quellcode:

gs: Array of TSprite;

zu

Delphi-Quellcode:

  gs: TArray<TSprite>;

ändere.

gruss

[himitsu]

Das Warum wurde da auch erklärt ... Stichwort "Open Array" vs. "dynamisches Array".
http://www.delphipraxis.net/192817-s...parameter.html

[Olli73]

Var ist schon in Ordnung.

[EWeiss]

Zitat:

Zitat von himitsu (Beitrag 1372402)

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. :angle:

[EWeiss]

Zitat:

Zitat von himitsu (Beitrag 1372405)

Ich hab auch ein EDIT im Post. :angle:

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:

Zitat von himitsu (Beitrag 1372407)

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