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

Delete(gs, K);

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

Setlength(gs, length(SrcArray) - 1); //<< inkompatible Typen
es ist unabhängig vom var Parameter.
Auch dann geht es nicht.

gruss

[Olli73]

Zitat von EWeiss:

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 von Olli73:

Zitat von EWeiss:

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
gs: Array of TSprite; zu
  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 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