对象的创建与释放

Delphi需要自己管理对象的创建与释放坚持谁创建谁负责释放的原则。
(Create and Free, New and Dispose, GetMem and FreeMem）
type
TConfig = record
    SysName:     string;
    DataLanguage:  integer;
end;
  PConfig = ^TConfig;
var 
  Config:  PConfig; 

  Config     := New(PConfig);
   FillChar(Config^, SizeOf(Config^), 0);
try
  .......
finally
  Dispose(ngConfig);
end;

StringList := TStringList.Creat;
try
  .......
finally
  Free(StringList);
end;

var Buffer: PChar;
GetMem(Buffer, Size);
try
  ......
finally
  FreeMem(Buffer);
end;