System.pas - New、Dispose、GetMem、FreeMem 函数

  函数原型：

     procedure New(var P); procedure Dispose(var P); procedure GetMem(var P; Size: LongInt); procedure FreeMem(var P; [Size: LongInt]);   

 

 procedure New(var P);

 

 这个过程是为指针获取内存。

 

 procedure Dispose(var P);

 

 这个就是释放内存。

 

 举例：

procedure Test; // 这个是单独的 type PTestType = ^TTestType; TTestType = string; var TestPointer: PTestTpye; begin try New(TestPointer); TestPointer^ := 'ABC'; ShowMessage(TestPointer^); //输出 "ABC" ShowMessage(LowerCase(TestPointer^)); //由于有LowerCase小写处理，输出 "abc" finally Dispose(TestPointer); //别忘了释放内存 end; end; procedure Test; // 这个是连续的，链表结构 type PTestType = ^TTestType; TTestType = record Data: Char; Next: PTestType; //链表重点 end; var h, p1, p2: PTestType; i: Char; Str: string; begin try New(h); h^.Data := 'a'; p2 := h; for i := 'b' to 'z' do begin New(p1); p2^.Next := p1; //将上一个数据与下一个相连 p1^.Data := i; end; p2 := h; for i := 'a' to 'z' do begin Str := Str + p2^.Data; p1 := p2^.Next; p2 := p1; end; ShowMessage(Str); //输出 "abcdefghijklmnopqrstuvwxyz" finally // 别忘了释放内存 p2 := h; while p2^.Next <> nil do begin p1 := p2^.Next; Dispose(p2); p2 := p1; end; end; end;

 procedure GetMem(var P; Size: LongInt);

 

 这个嘛，也是获取内存，但是可以获取连续的内存空间。

 

 procedure FreeMem(var P; [Size: LongInt]);

 

 这个也是释放内存，也可以释放连续内存空间，如果只有一个结构需要释放，只需第一个参数。

 

 举例：

 

    procedure Test; type PTestType = ^TTestType; TTestType = record Name: string; Data: string; end; var TestPointer: PTestType; begin try GetMem(TestPointer, Sizeof(TTestType) * 2); //创建2个结构 | 当前指向第一个结构 TestPointer.Name := '张三'; TestPointer.Data := 'None'; //设置第1个结构的数据 Inc(TestPointer); //指向下一个结构 TestPointer.Name := '李四'; TestPointer.Data := 'None'; //设置第2个结构的数据 Dec(TestPointer); //指向第一个结构，准备输出 ShowMessage('Name = ' + TestPointer.Name + ' ; Data = ' + TestPointer.Data + ' ;'; //弹出对话框，输出 "Name = 张三 ; Data = None ;" ShowMessage('Name = ' + TestPointer.Name + ' ; Data = ' , TestPointer.Data + ' ;'; //同上，弹出对话框，输出 "Name = 李四 ; Data = None ;" finally //也别忘了释放内存 Dec(TestPointer); //指向第1个结构才能正常释放 FreeMem(TestPointer, SizeOf(TestPointer^) * 2); //创建了几个结构，就释放几个。只创建一个，可以省略第2个参数。 end; end;