Kann man statische Arrays so gleichsetzen?

[DeddyH]

IIRC werden per CopyOnWrite lediglich die Werte kopiert, d.h. beide Arrays hängen nicht zusammen. Machen wir doch zur Sicherheit ein kleines Testprojekt:

Delphi-Quellcode:

procedure TFormTest.Button1Click(Sender: TObject);
type
  TMyArray = array[1..2] of integer;
var
  Original, Kopie: TMyArray;
begin
  Original[1] := 100;
  Original[2] := 1;
  Kopie := Original;
  (* Kopiertes Array ausgeben *)
  ShowMessage(Format('%d, %d', [Kopie[1], Kopie[2]]));
  Kopie[2] := 42;
  (* Werte aus Original und geänderter Kopie *)
  ShowMessage(Format('Original: %d, %d; Kopie: %d, %d',
    [Original[1], Original[2], Kopie[1], Kopie[2]]));
end;