unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { 给字符指针(PChar、PWideChar、PAnsiChar)分配内存, 最佳选择是: StrAlloc. StrAlloc 虽然最终也是调用了 GetMem, 但 StrAlloc 会在指针前面添加 Delphi 需要的 4 个管理字节(记录长度). StrAlloc 分配的内存, 用 StrDispose 释放, 用 StrBufSize 获取大小. 用 FreeMem 释放可以吗? 这样会少释放 4 个字节. 这种类型的指针一般用于 API 函数的参数, 譬如获取窗口标题: } procedure TForm1.Button1Click(Sender: TObject); var p : PChar; begin p := StrAlloc(256); GetWindowText(Handle,p,StrBufSize(p)); ShowMessage(p); StrDispose(p); end; { StrAlloc 根据不同的参数(PWideChar、PAnsiChar)分别重载调用了 WideStrAlloc、AnsiStrAlloc, 所以我们也可以直接使用这两个函数(这也需要用 StrDispose 释放), 不过使用它们的必要性不大; 用 StrAlloc 指定好参数类型即可. 给字符指针分配内存其他方法也挺方便, 譬如: } procedure TForm1.Button2Click(Sender: TObject); var buf : array[0..MAX_PATH] of Char; begin GetWindowsDirectory(buf, Length(buf)); ShowMessage(buf); end; { 数组的内存不是我们自己申请的, 系统会自动释放; 记住: 只要是手动申请的内存一定要手动释放. 还有一对非常重要的相关函数: GlobalAllocPtr、GlobalFreePtr; 它们的功能是上面这些都不可替代的! GlobalAllocPtr 和 GlobalFreePtr 是对系统函数: GlobalAlloc、GlobalFree 的简化, 之所以说它们重要, 只是因为它们可以跨进程操作; 不过 GlobalAllocPtr 是给无类型指针(Pointer)分配内存, 当然就不仅仅用于字符指针 } end. http://www.cnblogs.com/del/archive/2008/11/08/1329543.html 下同