Array kopieren

[glkgereon]

Hi

ich versuche im Moment einen Array zu kopieren.

Kann ich das so machen:

Delphi-Quellcode:

var A1, A2: array of Integer;
begin
  SetLength(A1,25);
  DoSomethingWithA1;
  SelLength(A2,Length(A1));
  Move(A1,A2,SizeOf(A1));
end;

[shmia]

Zitat von glkgereon:

ich versuche im Moment einen Array zu kopieren.
Kann ich das so machen:

Delphi-Quellcode:

var A1, A2: array of Integer;
begin
  SetLength(A1,25);
  DoSomethingWithA1;
  SelLength(A2,Length(A1));
  Move(A1,A2,SizeOf(A1));
end;

"Lustigerweise" kopiert man ein dynamisches Array mit copy:
A2 := Copy(A1, 0, Length(A1)-1); <edit>Obacht: dyn. Arrays beginnen mit Index 0</edit>

[glkgereon]

Zitat von shmia:

Zitat von glkgereon:

ich versuche im Moment einen Array zu kopieren.
Kann ich das so machen:

Delphi-Quellcode:

var A1, A2: array of Integer;
begin
  SetLength(A1,25);
  DoSomethingWithA1;
  SelLength(A2,Length(A1));
  Move(A1,A2,SizeOf(A1));
end;

"Lustigerweise" kopiert man ein dynamisches Array mit copy:
A2 := Copy(A1, 1, Length(A1);

Oh
Ich dachte bisher immer, copy märe nur für Strings^^

Danke!

Achso, noch ne Frage:
muss ich das Array vorher noch auf die richtige Länge bringen?
wie ist das wenn Length(A2) vorher schon ungleich 0 ist?
kann es da zu MemoryLeaks kommen?

[himitsu]

Ja, Copy gibt es für Strings ... aber wenn man bedenkt, das die Strings (LongStrings/AnsiStrings) intern in Wirklichkeit auch nur dynamische Arrays sind, dann ist es nicht verwunderbar, daß es Copy und seine Verwandten auch vür die "normalen" Arrays gibt