指针问题

[wslmsx]

unit Unit1;

interface

uses
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这句上。请问为什么,怎样解决?谢谢！

[haitao]

编译出错（错误信息是什么？）
还是
运行出错？

p:=@a;
改为
p:=@(a[0]);
试一试

[火龙岛主]

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

[jadeluo]

动态数组 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;

[skertone]

用开放数组好了


改成
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'));

[wslmsx]

如果就要用指针的形式呢，程序里应该怎么改？