文档章节

System.GetMem、System.FreeMem - 申请和释放内存

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 305
阅读 4
收藏 0
如果只为单个指针分配内存, 和 New 和 Dispose 是一样的; 与之不同的是: GetMem 可以申请连续的多个内存块.

举例:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

Type
  TMyRec = record     {定义结构}
    name: string[8];
    age : Word;
  end;
  PMyRec = ^TMyRec;   {定义结构指针}

var
  pr: PMyRec;

procedure TForm1.FormCreate(Sender: TObject);
begin
  {同时分配 3 个结构的内存; 此时的三个结构在内存中是连续的}
  GetMem(pr, SizeOf(TMyRec) * 3);

  {此时 pr 指向第一个结构, 赋值}
  pr.name := '张三';
  pr.age := 11;

  {让 pr 指向第二个结构, 赋值}
  Inc(pr);
  pr.name := '李四';
  pr.age := 22;

  {让 pr 指向第三个结构, 赋值}
  Inc(pr);
  pr.name := '王五';
  pr.age := 33;

  {先回到第一个结构, 然后依次读取}
  Dec(pr, 2);
  ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {张三 11 岁}
  Inc(pr);
  ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {李四 22 岁}
  Inc(pr);
  ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {王五 33 岁}

  {从第一个结构, 清除 3 个结构大小的内存, 这样就删除了上面三个结构}
  Dec(pr, 2);
  FreeMem(pr, SizeOf(pr^) * 3); {SizeOf(TMyRec)  和 SizeOf(pr^) 是一样的}
end;

end.

 
 
 
 
 

 

 

  
System 单元下的公用函数目录

本文转载自:http://www.cnblogs.com/del/archive/2008/03/27/1125778.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
使用Memcheck发现常见的内存问题

1、使用未初始化的内存 全局变量和静态变量的初始值均为0,而局部变量和动态申请的变量,其初始值为随机值。如果程序使用了随机值的变量,那么程序的行为就变得不可预期。 输出结果会显示:C...

小呀小蜗牛
2015/10/22
149
0
haproxy-代码阅读-内存管理

haproxy内存池概述 内存池按照类型分类,每个类型的内存池都有一个名字,用链表记录空闲的内存块,每个内存块大小相等,并按照16字节对齐。 haporxy用pool_head 结构记录内存池 在程序执行过...

沈小错
2017/05/29
0
0
C语言开发中的内存检测基本模块

一、前言 在用C语言开发产品时,由于C语言中的指针操作的灵活性,因此在使用指针时也需要特别小心,稍微不严谨就会导致内存问题,如内存未初始化,内存泄露,内存重复释放等。 但是在实际开发...

墙头草
2011/05/26
0
0
C语言 malloc 内存泄漏

错误代码如下: 这个函数先为三个结构体变量申请内存空间,其中一个申请失败就返回失败。如果全都申请成功的话,就对结构体变量进行初始化工作。逻辑上似乎没有什么问题,但是这里隐藏了一个...

u011303443
03/18
0
0
C语言内存管理讲解

谨记 人生有两条路,一天需要用心走,叫做梦想;一条需要用脚走,叫做现实。心走的太快,会迷路的;脚走的太快,会摔倒的;心走的太慢,现实会苍白;脚走的太慢,梦不会高飞。人生的精彩,是...

长风留言
2017/11/22
0
0

没有更多内容

加载失败,请刷新页面

加载更多

ConcurrentHashMap 高并发性的实现机制

ConcurrentHashMap 的结构分析 为了更好的理解 ConcurrentHashMap 高并发的具体实现,让我们先探索它的结构模型。 ConcurrentHashMap 类中包含两个静态内部类 HashEntry 和 Segment。HashEnt...

TonyStarkSir
今天
3
0
大数据教程(7.4)HDFS的java客户端API(流处理方式)

博主上一篇博客分享了namenode和datanode的工作原理,本章节将继前面的HDFS的java客户端简单API后深度讲述HDFS流处理API。 场景:博主前面的文章介绍过HDFS上存的大文件会成不同的块存储在不...

em_aaron
昨天
2
0
聊聊storm的window trigger

序 本文主要研究一下storm的window trigger WindowTridentProcessor.prepare storm-core-1.2.2-sources.jar!/org/apache/storm/trident/windowing/WindowTridentProcessor.java public v......

go4it
昨天
6
0
CentOS 生产环境配置

初始配置 对于一般配置来说,不需要安装 epel-release 仓库,本文主要在于希望跟随 RHEL 的配置流程,紧跟红帽公司对于服务器的配置说明。 # yum update 安装 centos-release-scl # yum ins...

clin003
昨天
9
0
GPON网络故障处理手册

导读 为了方便广大网络工作者工作需要,特搜集以下GPON网络处理流程供大家学习参考。开始—初步定为故障—检查光纤状况—检查ONU状态--检查设备运行状态—检查设备数据配置—检查上层设备状态...

问题终结者
昨天
10
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部