指针问题

2009-10-09 11:52:29 183 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C语言指针的一坨问题内存泄漏、空指针解引用、悬空指针（Dangling Pointer）、双重释放（Double Free）、未初始化的指针（Uninitialized Pointer）、未检查的分配失败（Unchecked Allocation Failure）、数组越界（Buffer Overflow）、使用后释放（Use-after-free）、内存重叠错误、类型不匹配、指针算术错误、内存别名、指向常量的指针、void指针的使用以及函数指针误用阅读详情

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

...全文