Delphi中的PChar类型的使用

Delphi中有三种不同的NULL结尾的字符串类型：PChar，PAnsiChar，PWideChar。

从名字上可以看出，他们是对应Delphi中三种类型的Null(#0)结尾字符串。

 

PChar等这些类型与普通字符串类型不同的是，他们不会被自动分配和管理内存，需通过内存分配函数手动分配。

下表为Delphi内存分配及对应的释放函数：

--------------------------------------------------------------------------

内存分配 内存释放

--------------------------------------------------------------------------

AllocMem() FreeMem()

GlobalAlloc() GlobalFree()

GetMem() FreeMem()

New() Dispose()

StrAlloc() StrDispose()

StrNew() StrDispose()

VirtualAlloc() VirtualFree()

———————————————————————————————

 

看下面的例子：

 

procedure TForm1.Button5Click(Sender: TObject);

var

  P1, P2 : PChar;

  S1, S2, S3 : String;

begin

  S1 := 'Delphi 2010 ';

  P1 := StrAlloc(64 * SizeOf(Char));

  StrPCopy(P1, S1);

 

//  ShowMessage(IntToStr(Length(P1)));

  S2 := 'Developer''s Guide';

  P2 := StrNew(PChar(S2));

//  ShowMessage(IntToStr(Length(P2)));

  StrCat(P1, P2);

  S3 := P1;

  StrDispose(P1);

  StrDispose(P2);

  ShowMessage(S3);

end;