在Pascal语言下实现动态数组和大数组的讨论(三)

最新推荐文章于 2025-08-18 00:15:00 发布

转载最新推荐文章于 2025-08-18 00:15:00 发布 · 279 阅读

文章标签：

#pascal #语言 #integer #buffer #byte #编译器

Delphi摘要专栏收录该内容

43 篇文章

订阅专栏

本文介绍了一种在Pascal语言中实现动态数组的方法，并通过示例代码详细解释了其工作原理。此外，还讨论了如何利用这种方法来创建大型动态数组，并提供了一个具体的实现案例。

我在youkuaiyun.com的2000年合订本光盘上看到了这样的一段代码：
作者是谁，我忘记了。

{$R-} { <-- essential For this trick }
Type
tFlexArray = Array[1..1] of Integer;
Var
pFlexArray : ^tFlexArray;
NumofElements,i : Integer;
begin
Write('How many elements do you want in the Array? ');
readln(NumofElements);
getmem(pFlexArray, (NumofElements * sizeof(Integer)));
For i := 1 to NumofElements do
pFlexArray^[i] := i;
Write('Test which element? (Will contain same value as index) ');
readln(i);
Writeln('Element ',i,' contains ',pFlexArray^[i]);
end.

这个可以称之为动态数组了。和我最初的相法类似，但是可以看出，
Pascal语言，或称之为计算机语言上的类型方面需要注意的问题。
这个数组的原理在于
Type tFlexArray = Array[1..1] of Integer;
Var pFlexArray : ^tFlexArray;
pFlexArray^[i]可以访问，但是注意别超出分配的界限。
因为Pascal语言7.0版本的时候还没有不支持运算符重载，所以，
它的伟大意义在于使程序的可读性大大的增强了。因为使用了[]操作。

既然具备了这个基础，我们可以用^pFlexArray的方法实现动态大数组。
这个读者可以自己去实现，抑或，
Type
tFlexArray = Array[1..1] of Integer;
pFlexArray = ^tFlexArray;
tFlexArray2 = Array[1..1] of pFlexArray;
pFlexArrayEx = ^tFlexArray2;

下面我们讨论一下大数组的问题，如同上面的一段代码中所描述的，
可以实现大的动态数组。需要知道，在Pascal语言中，
一个数组最多可以分配65535个空间，如果你真的分配这么多空间的话，
那你就别想用太多的其他变量了!
编译器会报出"变量太多...."之类的错误。

下面是有人实现的大数组的程序。
Uses Crt;
Type
ar_64K = Array[1..65521] of Byte;
po_ar64K = ^ar_64K;
ar_Po64K = Array[1..200] of po_ar64K;

Var
by_Index : Byte;
Buffer   : ar_Po64K;
begin
ClrScr;
by_Index := 0;
While (MaxAvail > SizeOf(ar_64K)) do
begin
    Inc(by_Index);
    New(Buffer[by_Index]);
    GotoXY(1,1);
    ClrEol;
    Writeln('Maximum Memory Available: ', MaxAvail);
    Delay(300);
end;
end.

Tips : 小心Crt单元在Windows 98 OR Higher下不好用!!!
至于怎么解决这个问题，我另有文章描述。
CRT单元在新版本DOS系统的除0问题