Delphi如何识别StringList对象是否被创建

Question

我已经在私有部分声明了 TStringList 变量。在按钮单击事件中，我想访问该 TStringList 对象。

sVariable:= TStringList.Create;
sVariable.add('Test1');

现在，每当我每次新创建该按钮时单击该按钮，内存就会分配给该变量。是否有任何属性/函数可以用来确定是否为该变量创建了对象，并且它也不会给出访问冲突错误？

Answer 1

if not Assigned(sVariable) then
  sVariable:= TStringList.Create;
sVariable.add('Test1');

Answer 2

另一种方法是通过具有 read 方法的属性来扩展 David 的答案。

TMyForm = class (TForm)
private
  FStrList : TStringList;
public
  property StrList : TStringList read GetStrList;
  destructor Destroy; override;
end;

implementation

function TMyForm.GetStrList : TStringList;
begin
  if not Assigned(FStrList) then
    FStrList := TStringList.Create;
  Result := FStrList;
end;

destructor TMyForm.Destroy;
begin
  FStrList.Free;
  inherited;
end;

编辑：在重写的析构函数中添加了 Free 调用。