如何读取指针数组中的某个值？

Question

我定义了一个指针：  Pchar1=array of pchar;
  PPchar=^Pchar1;然后在函数中定义了一个变量function dtt(seriesRange:PPchar):integer; 
begin
  我给变量seriesRange开辟了两个长度， 
  并赋了seriesRange^[0]为AA， seriesRange^[1]为BB；
  
  //请问如何读出“AA”和“BB”呢？
  我写了一句showmessage(seriesRange^[0]);结果什么都没有？错在哪里呢？
end;

Answer 1

GetMem(seriesRange^[0],20);
GetMem(seriesRange^[1],20);
并赋了seriesRange^[0]为AA， seriesRange^[1]为BB；

Answer 2

楼上的兄弟，我现在的问题是已经赋值成功了，如何用SHOWMESSAGE读出这个数据“AA”呢？
我写的showmessage(seriesRange^[0]);读出来的是错误的啊，现在应该如何读取呢？

Answer 3

//这样看着舒服一些
var
  seriesRange:PPchar;
begin
  new( seriesRange );
  setLength( seriesRange^, 2 );
  seriesRange^[0]:='aa';
  seriesRange^[1]:='bb';
  showmessage( seriesRange^[0] );
  showmessage( seriesRange^[1] );
  setlength( seriesRange^,0 );
  dispose( seriesRange );
end;

Answer 4

赋值成功,不代表赋值正确
seriesRange^[0] 是一个Pchar
赋值前不应该给它分配空间吗?