我想請問一下,我如何將A陣列的記憶體位址給B陣列,讓AB兩個陣列的位址是一樣了,使B陣列可以直接使用A陣列的資料(A:array[0..511] of word;B:array [0..1023] of byte;)?

這是不可能的 A 與 B 兩個陣列在宣告上就不一樣, 分別佔有各自的記憶體空間 而且目前沒友誼個程式語言是可以宣告不同陣列型態在同一個記憶體位置並佔有相同空間的 你可以使用指標 A: array[0..511] of word; B: ^Byte; B := @A[0]; then B^ now = A[0] Inc(B) then B^ = A[1] Inc(B) then B^ = A[2] 或 A[511] = Byte((Pointer(Integer(B) 1023))^) A[10] = Byte((Pointer(Integer(B) 10))^)

你好： 其實你可以試試宣告一個自訂類別，範例如下。    

Type
  TData = packed record
  // 宣告兩個變數使用重疊的記憶體
  case Word of
    0: (Data1 : array[0..511] of word);
    1: (Data2 : array [0..1023] of byte);
  end;    procedure TForm1.Button1Click(Sender: TObject);
var
  Data : TData;
begin
  Data.Data1 [0] := $1234;
  Data.Data1 [1] := $5678;
  Data.Data1 [2] := $9ABC;
  Data.Data1 [3] := $DEF0;      memo1.Lines.Add (IntToHex (Data.Data2 [1], 2));
  memo1.Lines.Add (IntToHex (Data.Data2 [0], 2));
  memo1.Lines.Add (IntToHex (Data.Data2 [3], 2));
  memo1.Lines.Add (IntToHex (Data.Data2 [2], 2));
  memo1.Lines.Add (IntToHex (Data.Data2 [5], 2));
  memo1.Lines.Add (IntToHex (Data.Data2 [4], 2));
  memo1.Lines.Add (IntToHex (Data.Data2 [7], 2));
  memo1.Lines.Add (IntToHex (Data.Data2 [6], 2));
{
產生結果
12
34
56
78
9A
BC
DE
F0
}
end;

請參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32757 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34717