Delphi Assigned 简单使用

（JDD_KK原创）

Delphi Assigned 用来判断对象是否被创建
用法：
在 需要多次创建并释放一个对象时使用时：
先确保这个对象上次的分配的内存已经被释放

 var
  StrList : TStringList;
begin
  if Assigned(StrList) then
  begin
    FreeAndNil(StrList);
    {
      还有FreeAndNil有时候 会报错，
      可以使用这个代替
       StrList.Free;
       StrList := nil;  //nil 是必不可少的，否则 下次使用 Assigned 就起不到想要的作用
    }
  end;
  StrList := TStringList.Create;
  StrList.Add('a');
  FreeAndNil(StrList);
end;