Delphi-Quellcode:
var
TArray = array of double; // ein double is 8 byte groß
var
aQuelle: TArray;
aZiel: TArray;
iGroesse: integer;
begin
iGroesse := 100;
SetLength(aQuelle, iGroesse);
SetLength(aZiel, iGroesse);
FillArrayWithRandomDoubleValues(aQuelle, iGroesse);
Move(aZiel[0], aQuelle[0], iGroesse * 8);
// jetzt sind aQuelle und aZiel identisch
// wenner immernoch meckert dann versuchs mit
// Move(Pointer(aZiel)^, Pointer(aQuelle)^, iGroesse * 8);
end;
[edit]die doofen tags hinzugeklickt[/edit]