由Access Violation谈起

郁闷篇
　　下午调试程序，碰到了一个“Access violation at...”错误，据说这位拥有着“最令人头大的Windows程序错误之一”的美誉。因为代码量不小，没办法，只好分区排雷了。扫了一遍，代码逻辑没有问题，那就是出在某个该死的细节上，非法访问内存地址了，我知道最让人崩溃的时刻已经来临：“WK，为什嘛？？？”(办公室不允许抽风，只能在心里诅咒的说)...
　　中场休息中...抽支烟去...
　　回到座位上，怎么办？有什么好办法吗？没有！逐行跟踪呗...就这样，时间伴随着我的痛苦也一秒一分地过去了...
　　如果说程序Bug最能令人沮丧的话，那么找出Bug的时候恐怕也是让人最开心的时刻。终于，在离下班还有将近半小时的时候，哥们终于把目标定位了
　　　　varlFile: file;lReadNum: Integer;ArrData: array of array of MyType;...begin ... BlockRead(lFile, ArrData[0], Sizeof(ArrData), lReadNum);//拉出去枪毙，鉴定完毕...end;

　　如果是Delphi高手看到这个，估计我已经被鄙视N遍了。呵呵，其实哥们我看到这里，心都绿了，居然犯下如此“高级”的错误。“什么？没看懂？”好吧，简单的做个业余介绍：这里的数组ArrData是个指针，那么Sizeof(ArrData)是多少？对，4Byte啦...

 

自省篇
　　伤心+伤心+伤心...
　　痛定思痛，既然会在这里犯错，说明自己这一块有欠缺，然后呢？google+翻书呀！百度？呵呵，算了吧，不解释...

   

　　函数原型：

　　1.　　function SizeOf(X): Integer;
    　　　　返回一个变量或类型X在内存中所占的字节数；
　　2.　　function Length(S): Integer;
    　　　　返回一个字符串中的字符数或一个数组中的元素数；

　　3.　　 procedure SetLength(var S; NewLength: Integer);
　　设置一个字符串或动态数组变量的大小为NewLength。对于ShortString，NewLength必须处于[0, 255]之间，SetLength重新为S分配内存，S中已有的字符或元素保留，但新分配的内存空间未定义。另外，对于多维动态数组，可以指定多个参数，来指定S的各个维度(具体请参考Delphi Help)；

　　4.　　function Copy(S; Index, Count: Integer): string;
　　　　　function Copy(S; Index, Count: Integer): array;
　　S可以是一个字符串或动态数组，Copy返回由Index和Count共同指定的子串或子数组。如果Index大于S的Length，Copy返回空；如果Count过大，则Copy返回从Index开始直到S结束的子串或子数组。另外，Copy返回的子数组或子串与源S相对独立，不共享内存，这一点和操作符“：=”不同。如果使用：=，则源数组和目标数组共同指向内存中同一份数据，二者唇齿相依(具体请参考Delphi Help)；
　　5.　　function High(X);
　　　　　function Low(X);
　　简单地说就是返回X的上下界值。对于数组，则High返回上界减1，而Low返回下界。特别地，空数组，High返回-1，Low返回0(具体请参考Delphi Help)。

    　　下面我们来做个测试：
var ArrTest1: array[0..10] of Byte; ArrTest2: array[0..10] of Integer; ArrTest3: array[0..3,0..4,0..5] of Integer; ArrTest4: array of Integer; ArrTest5: array of array of array of Integer;begin //比较懒，不做显式初始化了 //一维静态数组 ShowMessage(IntToStr(SizeOf(ArrTest1))); //11Byte ,效果上同Char ShowMessage(IntToStr(Length(ArrTest1))); //11 ShowMessage(IntToStr(SizeOf(Integer))); //4，友情提示 ShowMessage(IntToStr(SizeOf(ArrTest2))); //44 ShowMessage(IntToStr(Length(ArrTest2))); //11 //多维静态数组 ShowMessage(IntToStr(Sizeof(ArrTest3))); //480, = 4*5*6*4 ShowMessage(IntToStr(Length(ArrTest3))); //4，第一维度 ShowMessage(IntToStr(Length(ArrTest3[0]))); //5,第二维度(嘿嘿..从万一老师博客里拿来的) ShowMessage(IntToStr(Length(ArrTest3[0][0])));//6,第三维度 //一维动态数组, ShowMessage(IntToStr(SizeOf(ArrTest4))); //4,指针占4Byte ShowMessage(IntToStr(Length(ArrTest4))); //0,因为没有分配内存 ShowMessage(IntToStr(High(ArrTest4))); //-1 ShowMessage(IntToStr(Low(ArrTest4))); //0 SetLength(ArrTest4, 10); ShowMessage(IntToStr(Length(ArrTest4))); //10 ShowMessage(IntToStr(High(ArrTest4))); //9 ShowMessage(IntToStr(Low(ArrTest4))); //0 //多维动态数组 SetLength(ArrTest5, 7, 8, 9); //分配一个7*8*9的三维数组 ShowMessage(IntToStr(High(ArrTest5))); //6 = 7-1 ShowMessage(IntToStr(High(ArrTest5[0]))); //7 = 8-1 ShowMessage(IntToStr(High(ArrTest5[0][0])));//8 = 9-1end;

呃，是该回头好好重温一些东西了！

------------------------------------------------

以上只是个人一些浅薄的认识，欢迎指正讨论......