内存分配和释放函数

内存分配和释放函数
内存分配函数内存释放函数
A l l o c M e m ( ) F r e e M e m ( )
G l o b a l A l l o c ( ) G l o b a l F r e e ( )
G e t M e m ( ) F r e e M e m ( )
N e w ( ) D i s p o s e ( )
S t r A l l o c ( ) S t r D i s p o s e ( )
S t r N e w ( ) S t r D i s p o s e ( )
Vi r t u a l A l l o c ( ) Vi r t u a l F r e e ( )
下面的例子演示了使用P C h a r和s t r i n g类型时的内存分配技术：

下面的例子演示了使用P C h a r和s t r i n g类型时的内存分配技术：
v a r
P 1 , P 2 : P C h a r ;
S 1 , S 2 : s t r i n g ;
b e g i n
P 1 : = S t r A l l o c ( 6 4 * S i z e O f ( C h a r ) ) ; / / P 1指向一个分配了6 3个字符的缓冲区
StrPCopy(P1,'Delphi 5'); / /复制一组字母到P 1
S1:='Developer's Guide'; / /在S 1中放几个字母
P 2 : = S t r N e w ( P C h a r ( S 1 ) ) ; / / P 2指向S 1的备份
S t r C a t ( P 1 , P 2 ) ; / /连接P 1和P2
S2:=P1; //S2现在为'Delphi 5 Developer's Guide’
S t r D i s p o s e ( P 1 ) ; / /清除P 1和P 2的缓冲区。
S t r D i s p o s e ( P 2 ) ;
e n d .