内存管理

内存管理

Pascal编程语言为内存分配和管理提供了几种功能

动态分配内存

在进行编程时，如果你知道一个大小的数组，然后很容易，你可以将它定义为一个数组.例如，要存储任何人的姓名，它最多可以包含100个字符，因此您可以定义以下内容和减号;

 var 
 name:array [1..100] of char;

但是现在，让我们考虑一种情况，你不知道你需要存储的文本的长度，例如，你想要存储关于主题的详细描述.在这里，我们需要定义一个指向字符串的指针，而不需要定义需要多少内存.

Pascal提供了一个过程 new 来创建指针变量.

program exMemory;
var
name: array[1..100] of char;
description: ^string;

begin
   name:= 'Zara Ali';

   new(description);
      if not assigned(description) then
         writeln(' Error - unable to allocate required memory')
      else
         description^ := 'Zara ali a DPS student in class 10th';
   writeln('Name = ', name );
   writeln('Description: ', description^ );
end.

编译并执行上述代码时，会产生以下结果 :

Name = Zara Ali
Description: Zara ali a DPS student in class 10th

现在，如果你需要定义一个指针要使用稍后要引用的特定字节数，您应该使用 getmem 函数或 getmem 过程，该过程具有以下语法 :

procedure Getmem(
   out p: pointer;
   Size: PtrUInt
);

function GetMem(
   size: PtrUInt
):pointer;

在前面的例子中，我们声明了一个指向字符串的指针.字符串的最大值为255个字节.如果你真的不需要那么多的空间或更大的空间，就字节而言， getmem 子程序允许指定它.让我们重写上一个例子，使用 getmem :

program exMemory;
var
name: array[1..100] of char;
description: ^string;

begin
   name:= 'Zara Ali';

   description := getmem(200);
      if not assigned(description) then
         writeln(' Error - unable to allocate required memory')
      else
         description^ := 'Zara ali a DPS student in class 10th';
   writeln('Name = ', name );
   writeln('Description: ', description^ );

   freemem(description);
end.

编译并执行上述代码时，会产生以下结果 :

Name = Zara Ali
Description: Zara ali a DPS student in class 10th

所以，你有完全的控制权，你可以传递任何大小的值，同时分配内存不同于数组，一旦你定义的大小不能更改.

调整大小和释放内存

当你的程序到来时out，操作系统自动释放你的程序分配的所有内存，但是当你不再需要内存时这是一个好习惯，那么你应该释放那个内存.

Pascal提供了过程 dispose 使用 new过程释放动态创建的变量.如果使用 getmem 子程序分配了内存，则需要使用子程序 freemem 释放此内存. freemem 子程序具有以下语法 :

procedure Freemem(
   p: pointer;
  Size: PtrUInt
);

function Freemem(
   p: pointer
):PtrUInt;

或者，您可以通过调用函数 ReAllocMem 来增加或减少已分配内存块的大小.让我们再次检查上面的程序，并使用 ReAllocMem 和 freemem 子程序.以下是 ReAllocMem :

function ReAllocMem(
   var p: pointer;
   Size: PtrUInt
):pointer;

以下是使用 ReAllocMem 和 freemem 子程序 的示例:

program exMemory;
var
name: array[1..100] of char;
description: ^string;
desp: string;

begin
   name:= 'Zara Ali';
   desp := 'Zara ali a DPS student.';

   description := getmem(30);
      if not assigned(description) then
         writeln('Error - unable to allocate required memory')
      else
         description^ := desp;

   (* Suppose you want to store bigger description *)
   description := reallocmem(description, 100);
   desp := desp + ' She is in class 10th.';
   description^:= desp; 

   writeln('Name = ', name );
   writeln('Description: ', description^ );

   freemem(description);
end.

编译并执行上述代码时，会产生以下结果 :

Name = Zara Ali
Description: Zara ali a DPS student. She is in class 10th

内存管理函数

Pascal提供了大量用于实现的内存管理功能各种数据结构并在Pascal中实现低级编程.其中许多功能都依赖于实现. Free Pascal为内存管理提供以下函数和过程 :