指针问题

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  StringArray=array of string;
  PStringArray=^StringArray;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function seqsearch(astrs:pstringarray;acount:integer;const aname:string):integer;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  a:array[0..4] of string=
  ('12345',
   '23456',
   '34567',
   '45678',
   '56789');
  p:PStringArray;
implementation{$R *.dfm}
function tform1.seqsearch(astrs:pstringarray;acount:integer;const aname:string):integer;
var
  i:integer;
begin
  for i:=0 to pred(acount) do
    if comparetext(astrs^[i],aname)=0 then
      begin
        result:=i;
        exit;
      end;
  result:=-1;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  p:=@a;
  edit1.Text:=inttostr(seqsearch(p,5,'34567'));
end;end.
运行时点击按钮出错，停在了if comparetext(astrs^[i],aname)=0这句上。请问为什么,怎样解决?谢谢！

Answer 1

用开放数组好了
改成
function tform1.seqsearch(astrs:array of string;acount:integer;const aname:string):integer; if comparetext(astrs[i],aname)=0 then edit1.Text:=inttostr(seqsearch(a,5,'34567')); 

Answer 2

编译出错（错误信息是什么？）
还是
运行出错？p:=@a; 
改为
p:=@(a[0]); 
试一试

Answer 3

测试是访问地址错误：if comparetext(astrs^[i],aname)=0 then 
还没这么用过，一般情况下，我们使用TStringList来处理类似问题！

Answer 4

动态数组 array of string 和 array[0..4] of string 在内存中的结构是不同的, 改成这样:var
  a:array of string;
  p:PStringArray;begin
  SetLength(a, 5);
  a[0] := '12345';
  a[1] := '23456';
  a[2] := '34567';
  a[3] := '45678';
  a[4] := '56789';
  p:=@a;
  ShowMessage(IntToStr(seqsearch(p, 5, '34567')));
end;