// var a1,a2:array[0..5]of integer; i:integer; begin for i:=Low(a1) to High(a1) do a1[i]:=i; Move(a1,a2,SizeOf(a1)); a1[3]:=255; //CopyMemory(@a2[0], @a1[0], Length(a1)); ShowmessageFmt('%D',[a1[3]]); //255 ShowmessageFmt('%D',[a2[3]]); //3 end; ///// a2:=a1; //简单的指针引用 a2指针指向a1的内存地址
var str1,str2:array of char; begin SetLength(str1,10); SetLength(str2,10); str1[6]:=#65; str2:= Copy(str1, 0, 9); ShowMessage(str2[6]); //A str1[6]:=#66; //B ShowMessage(str2[6]); //A end;