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;
(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;