StrAlloc   : 给 PChar 指针分配空间, 并填充 #0;StrBufSize : PChar 缓冲区大小.

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var  p: PChar;  i: Integer;begin  p := StrAlloc(10);  StrCopy(p, '123456');  ShowMessage(p); {123456}  i := StrBufSize(p);  ShowMessage(IntToStr(i)); {10}  StrDispose(p);end;end.