Teile einer beliebeigen Array lückenlos löschen

[Medium]

Ich vermute ganz stark, dass SetLength() nicht mit der offenen Array-Deklaration kann. (Meistens wird Array übrigens als Neutrum gesehen.)

Grund: Du könntest deine Funktion mit diesem Parameter theoretisch so aufrufen:
CutArray(1, 3, [SomeObject, SomeOtherObject, HappyObject, FrustratedObject, SillyObject, TooManyObjects]); Nur wohin würde die Änderung dann übergeben werden?

Ich vermute, dass die Lösung folgendermaßen aussehen dürfte (mangels IDE nicht zu testen gerade hier):

Delphi-Quellcode:

type
  TObjectArray = array of TObject;

.
.
.
procedure CutArray(Start, Finish: Integer; var Arr: TObjectArray);
...

Allerdings wundert es mich etwas, dass Delphi nicht schon dabei meckert, wenn ein offener Array-Parameter als "var" deklariert wird. Weil schon das macht, wegen der o.g. Aufrufmöglichkeit, eigentlich ein Problem. Ich hätte dort schon den Compiler stoppen vermutet, nicht erst bei dem SetLength(), dem es ja eigentlich egal sein kann ob jetzt var oder nicht var oder offen oder begrenzt. Etwas seltsam. Sonst sehe ich aber erstmal keinen Fehler in der Zeile, aber ich gucke eh nur noch aus Schlitzen. Junge, ist das spät!

(Pro-Tipp: Wenn du deinen Code in [delphi ] [/delphi ] Tags (ohne die Leerzeichen) einpackst, wird er besser lesbar. Vorausgesetzt natürlich er ist überhaupt formatiert - deiner sieht ja sogar in echt so aus (sieht man wenn man mit Zitat antwortet).)

Edit: Und du solltest unbedingt die Grenzen prüfen!! Sonst wirbelst du im Speicher mit dieser Funktion potenziell richtig was durcheinander, und sowas ist dann richtig hart zu finden. (Man könnte sogar negative Werte für Start und Finish angeben.)
Noch eine Kleinigkeit: Statt High(Arr)+1 könntest du auch Length(Arr) nehmen. Zumindest bei 0-basierten Arrays, die du mit dieser Deklaration ja zwangsweise hast.
(Und die Funktion Change() würde ich eher Exchange() nennen.)

[Jumpy]

- Ich fänd Switch() einen noch besseren Namen, aber ist halt geschmacksache.
- Auch sehe ich das wie Medium, dass du die Grenzen Start/Finish noch mehr prüfen musst, dass sie nicht z.B. ausserhalb der Array-Grenzen liegen.
- Und last but not least kann ich mir nicht vorstellen, dass das richtig ist, aber ich hatte heute auch noch keinen Kaffee:

Delphi-Quellcode:

for a1:=Finish to High(Arr) do Arr[Start+a1]:=Arr[Finish+a1];
//

Array 1 bis 10. Start 3. Finish 5.:
Schleife von 5 bis 10.
1 Durchlauf: a1=5 => Arr[3+5]=Arr[8]:=Arr[5+5]=Arr[10]
2 Durchlauf: a1=6 => Arr[3+6]=Arr[9]:=Arr[5+6]=Arr[11] !Out of Bounds!


Schleife müsste sowas sein wie
for a1:=1 to (High(Arr)-Finish)

[Jasocul]

Der Fehler dürfte die Funktion "High" sein.
Wenn ich mich richtig erinnere, gibt diese nicht die "Größe" des Arrays zurück, wenn das Array nicht als dynamisch erkannt wird, sondern den größten Inhalt anhand des Indexes.

Aber das ist wirklich nur aus dem Gedächtnis gekramt. Ich habe gerade kein Delphi zur Verfügung. Vielleicht kann ja mal Jemand in der DOH nachsehen.

[mkinzler]

Ja High() liefert den höchsten Index, Low() den niedrigsten, nicht die Anzahl der Elemente!