dynamische Array kopieren (letztes Element fehlt)

[himitsu]

Length(arr)-1 = High(arr) ... bei einem dynamischem Array

Und jupp, es ist Copy(source, start, len).

Zitat von brainless:

Delphi-Quellcode:

dynArray2 := Copy(dynArray1, 0, high(dynArray1));
FOR i := 1 TO high(dynArray1) DO
begin
  ShowMessage(dynArray1[i].textinhalt + ' vs. ' + dynArray2[i].textinhalt);
end;

Schalte mal die Bereichsprüfung in den Projektoptionen an.

[brainless]

edit

[uligerhardt]

Man iteriert über alle eingebauten Delphi-Arrays, egal ob statisch, dynamisch, offen oder sonstwie, per Low(arr) to High(arr) , und schon passt's.

[himitsu]

Zitat von uligerhardt:

Man iteriert über alle eingebauten Delphi-Arrays, egal ob statisch, dynamisch, offen oder sonstwie, per Low(arr) to High(arr) , und schon passt's.

Delphi-Quellcode:

//var el: telement;
//  arr: array of telement;

for el in arr do

[uligerhardt]

Zitat von himitsu:

Delphi-Quellcode:

//var el: telement;
//  arr: array of telement;

for el in arr do

Oder so - hab ich ganz vergessen.
Leider ist das for-in manchmal nicht gerade effizient, wenn man es mit "herkömmlichen" for-Schleifen vergleicht. Bei Schleifen über Sets und Arrays ist das aber WIMRE nicht so. Muss ich glatt bei Gelegenheit noch mal checken.

[samso]

Mit
dynArray2 := dynArray1; wird aber nur die Referenz kopiert. Wenn man nun
  dynArray2[0] := IrgendwasNeues; setzt, wird auch dynArray1[0] geändert! (Anderes als bei Strings). Das Kopieren der Referenz ist nicht das gleiche, wie der Copy-Befehl. Nur beim Copy-Befehl wird der komplette Inhalt kopiert.

Die Delphi-Hilfe dazu:

Zitat:

Wenn X und Y Variablen desselben dynamischen Array-Typs sind, führt die Anweisung X := Y dazu, dass X auf dasselbe Array wie Y zeigt. (Es ist nicht erforderlich, vor dieser Operation Speicher für X zu reservieren.) Im Gegensatz zu Strings und statischen Arrays wird copy-on-write nicht für dynamische Arrays verwendet. Deshalb werden diese nicht automatisch kopiert, bevor einem ihrer Elemente ein Wert zugewiesen wird.

[brainless]

Zitat von samso:

Mit
dynArray2 := dynArray1; wird aber nur die Referenz kopiert. Wenn man nun
  dynArray2[0] := IrgendwasNeues; setzt, wird auch dynArray1[0] geändert! (Anderes als bei Strings). Das Kopieren der Referenz ist nicht das gleiche, wie der Copy-Befehl. Nur beim Copy-Befehl wird der komplette Inhalt kopiert.

stimmt. genau das Problem habe ich jetzt also statt dynArray2 := dynArray1; dann doch wieder dynArray2 := Copy(dynArray1); aber dann fehlen wieder Elemente am Ende

Edit: ich weiß nicht, wo der Fehler war.. aber jetzt funktioniert es auf einmal mit dynArray2 := Copy(dynArray1, 0, High(dynArray1) + 1); (danke allen)

[himitsu]

Zitat von brainless:

stimmt. genau das Problem habe ich jetzt also statt dynArray2 := dynArray1; dann doch wieder dynArray2 := Copy(dynArray1); aber dann fehlen wieder Elemente am Ende

kann nicht sein, denn dieses kopiert alles.

Edit: ich weiß nicht, wo der Fehler war.. aber jetzt funktioniert es auf einmal mit dynArray2 := Copy(dynArray1, 0, High(dynArray1) + 1); (danke allen) [/quote]

dynArray2 := Copy(dynArray1, 0, Length(dynArray1)); oder eben
dynArray2 := Copy(dynArray1);

[QuickAndDirty]

Nur mal so am rande bedeutet das, dass folgendes das selbe macht

Delphi-Quellcode:

Procedure Main;
  var Keys:TStringDynArray;

  Procedure KeyFooRef(var arr:TStringDynArray)//MIT VAR
  Begin
    Setlength(arr,4);
    arr[0] := 'Das'; 
    arr[1] := 'ist';
    arr[2] := 'ein';
    arr[3] := 'Test';
  end;

  Procedure KeyFooVal(arr:TStringDynArray)// OHNE VAR
  Begin
    Setlength(arr,4);
    arr[0] := 'Das'; 
    arr[1] := 'ist';
    arr[2] := 'ein';
    arr[3] := 'Test';
  end;

Begin
  KeyFooRef(Keys);//Fall 1
  KeyFooVal(Keys);//Fall 2
end;

[uligerhardt]

Zitat von QuickAndDirty:

Nur mal so am rande bedeutet das, dass folgendes das selbe macht

Nö - probier's doch einfach mal aus. Bei Fall 2 wird zwar innerhalb von KeyFooVal die Kopie "arr" verändert, nicht aber das Original "Keys" aus Main.
So sieht man's vielleicht deutlicher:

Delphi-Quellcode:

procedure Main;
var
  Keys: TStringDynArray;

  procedure KeyFooRef(var arr: TStringDynArray); //MIT VAR
  begin
    Setlength(arr, 4);
    arr[0] := 'Das';
    arr[1] := 'ist';
    arr[2] := 'ein';
    arr[3] := 'Test';
  end;

  procedure KeyFooVal(arr: TStringDynArray); // OHNE VAR
  begin
    Setlength(arr, 4);
    arr[0] := 'Das';
    arr[1] := 'ist';
    arr[2] := 'ein';
    arr[3] := 'Test';
  end;

  procedure Raus(AIndex: Integer; const arr: TStringDynArray);
  var
    i: Integer;
  begin
    Write(AIndex, ':');
    for i := Low(arr) to High(arr) do
      Write(' ', arr[i]);
    Writeln;
  end;

begin
  Raus(1, Keys);
  KeyFooRef(Keys); //Fall 1
  Raus(2, Keys);
  Keys := nil;
  Raus(3, Keys);
  KeyFooVal(Keys); //Fall 2
  Raus(4, Keys);
end;