如何访问： ^array of TPEImports中的tpeimports.string11 ?

Question

var 
  P: ^array of TPEImports;
直接用P^.string1就行了,访问下一个先Inc(P,1),再P^.string1

Answer 1

好象不对，应该是：
type
  TPEImports = record
    string1: string;
  end;  TPEImportsArray = array  of  TPEImports; // 需要定义这两个类型
  PTPEImportsArray = ^TPEImportsArray;procedure foo( p: PTPEImportsArray );
begin
  ShowMessage( p^[1].string1 );
end;

Answer 2

var
 Imports: array of TPEImports;
a:  array of TPEImports;
begin
 pefile1:=tpefile.Create('c:\a.exe');
 a:[email protected];
 showmessage(a[0].dllname);//这句老是打出来乱码
end;