Delphi中如何將數(shù)組轉換為指針？

關于Delphi數(shù)組，指針，字符串轉換的例子：

var

aa: array [0..5] of Char;

bb:Pointer;

cc:string;

dd:PChar;

procedure TForm1.Button1Click(Sender: TObject);

begin

dd:='abcdef';

//以下是pchar內(nèi)容轉數(shù)組

FillChar(aa,length(dd),#0);

Move(dd^,aa,SizeOf(aa));

//以下是數(shù)組傳遞到指針

bb:=GetMemory(SizeOf(aa));

Move(aa,bb^,SizeOf(aa));

//以下是指針內(nèi)容傳遞給字符串

SetLength(cc,SizeOf(aa));

Move(bb^,cc[1],SizeOf(aa));

FreeMemory(bb);//這個是釋放內(nèi)存

//以下是數(shù)組轉pchar

dd:='';

dd:=PChar(@aa);

MessageBox(0,PChar('cc: '+cc),PChar('dd: '+dd),0);

end;