Ich bin zu dumm dafür. Wie ist das gemeint? Doku ist natürlich keine vorhanden.

markieren

Delphi-Quellcode:

var
   firstArray, secondArray: TArray<Integer>;
begin
   firstArray := [5,4,3,2,1];
   SetLength(secondArray, Length(firstArray));
   TArray.Copy(firstArray, secondArray, Length(firstArray));

Ich finde, das ist richtig. Tatsächlich wirft er mir aber eine EArgumentOutOfRangeException -Exception um die Ohren denn in
System.Generics.Collections.pas steht:

markieren

Delphi-Quellcode:

class procedure TArray.CheckArrays(Source, Destination: Pointer; SourceIndex, SourceLength, DestIndex, DestLength, Count: NativeInt);
begin
  if (SourceIndex < 0) or (DestIndex < 0) or (SourceIndex >= SourceLength) or (DestIndex >= DestLength) or
     (SourceIndex + Count >= SourceLength) or (DestIndex + Count >= DestLength) then
    raise EArgumentOutOfRangeException.CreateRes(@SArgumentOutOfRange);
  if Source = Destination then
    raise EArgumentException.CreateRes(@sSameArrays);
end;

Warum ist es denn ungültig wenn SourceIndex + Count >= SourceLength sind? Das muss doch so sein. Wenn ich ein Array mit fünf Elementen kopieren will- Dann ist doch Index = 0, Count = 5 und Length = 5.

Ich finde, er müsste auf ">" prüfen und nicht ">="



Wo ist mein Denkfehler?

Copy?
Meinst du nicht eher TArray.Copy<Integer>

Zitat:

markieren

Delphi-Quellcode:

class procedure Copy<T>(const Source, Destination: array of T; SourceIndex, DestIndex, Count: NativeInt); overload; static;
class procedure Copy<T>(const Source, Destination: array of T; Count: NativeInt); overload; static;

Auch wenn ich die OH ein bissl eigenartig finde, denn einer der Array (Dest) sollte doch VAR sein.


Aber ja, > wäre da wohl besser.

markieren

Code:

0123456789
   *******

(SourceIndex + Count >= SourceLength)
(3 + 7 >= 10) = True

PS: Dein Beispiel kann man auch mit den alten Funktionen umsetzen.

markieren

Delphi-Quellcode:

firstArray := [5,4,3,2,1];
secondArray := Copy(firstArray);

Und gab es nicht auch eine Insert-Funktion im TArray?

Da sind zwei Fehler den ich schon gemeldet habe ...

https://quality.embarcadero.com/browse/RSP-9620
https://quality.embarcadero.com/browse/RSP-9622

Danke! Scheint aber nicht so wichtig zu sein da die Tickets noch nicht einmal jemandem zugewiesen sind. Ich meine, Arrays kopieren. Wer tut das schon.

Ich weiß immer nicht, ob ich mich freuen oder weinen soll wenn man sieht dass der Fehler nicht im eigenen Kopf, sondern im Embarcadero Sourcecode steckt

Zitat von Der schöne Günther:

Ich meine, Arrays kopieren. Wer tut das schon.

Dabei wurde es doch als eines DER Features angepriesen, weswegen man das neue Delphi kaufen sollte ... Also dann sollte es auch besser mal funktionieren.

Zitat:

https://quality.embarcadero.com/browse/RSP-9620

Ohne eingelogt zu sein, kann man das ja nun nichmal mehr lesen.

Zitat von Der schöne Günther:

Ich finde, das ist richtig. Tatsächlich wirft er mir aber eine EArgumentOutOfRangeException -Exception um die Ohren denn in
System.Generics.Collections.pas steht:

markieren

Delphi-Quellcode:

class procedure TArray.CheckArrays(Source, Destination: Pointer; SourceIndex, SourceLength, DestIndex, DestLength, Count: NativeInt);
begin
  if (SourceIndex < 0) or (DestIndex < 0) or (SourceIndex >= SourceLength) or (DestIndex >= DestLength) or
     (SourceIndex + Count >= SourceLength) or (DestIndex + Count >= DestLength) then
    raise EArgumentOutOfRangeException.CreateRes(@SArgumentOutOfRange);
  if Source = Destination then
    raise EArgumentException.CreateRes(@sSameArrays);
end;

Das steht in meinem XE7 aber anders da:

markieren

Delphi-Quellcode:

class procedure TArray.CheckArrays(Source, Destination: Pointer; SourceIndex, SourceLength, DestIndex, DestLength, Count: NativeInt);
begin
  if (SourceIndex < 0) or (DestIndex < 0) or (SourceIndex >= SourceLength) or (DestIndex >= DestLength) or
     (SourceIndex + Count > SourceLength) or (DestIndex + Count > DestLength) then
    raise EArgumentOutOfRangeException.CreateRes(@SArgumentOutOfRange);
  if Source = Destination then
    raise EArgumentException.CreateRes(@sSameArrays);
end;

Jetzt bin ich verwirrt. Ich stehe weiterhin zu meinem Wort, meine XE7 System.Generics.Collections.pas enthält genau das! Enterprise und Architect sollten sich doch hier nicht unterscheiden?
In der Fixlist für XE7.1 finde ich auch nichts passendes.


Größe: 72.436 Bytes
Embarcadero® RAD Studio XE7 Version 21.0.17017.3725
Enterprise

Zitat:

if Source = Destination then

Man darf die Funktionen nicht verwenden, um Daten innerhalb eines Arrays umukopieren?

Das ist aber blöd.

@Uwe, bei Build 21.0.17017.3725 war es aber noch die vom OP genannte Variante. Du hast sicher Update 1 bereits installiert. Allerdings ist diese Änderung nicht in den Release notes.

Zitat von Union:

@Uwe, bei Build 21.0.17017.3725 war es aber noch die vom OP genannte Variante. Du hast sicher Update 1 bereits installiert. Allerdings ist diese Änderung nicht in den Release notes.

Vermutlich ist es so, daß der Fix in Update 1 enthalten ist. Im Moment kann ich das auch nicht kontrollieren.

Man kann sich vielleicht doch nicht immer auf die Vollständigkeit der Bugfix-Liste verlassen.