我在私有部分声明了一个TStringList变量。在按钮单击事件中,我想要访问这个TStringList对象。
sVariable:= TStringList.Create;
sVariable.add('Test1');
现在每当我点击那个按钮时,它每次都会新创建一个变量并分配内存。有没有使用属性/函数来确定是否为该变量创建了对象,并且它不会导致访问冲突错误?
我在私有部分声明了一个TStringList变量。在按钮单击事件中,我想要访问这个TStringList对象。
sVariable:= TStringList.Create;
sVariable.add('Test1');
现在每当我点击那个按钮时,它每次都会新创建一个变量并分配内存。有没有使用属性/函数来确定是否为该变量创建了对象,并且它不会导致访问冲突错误?
if not Assigned(sVariable) then
sVariable:= TStringList.Create;
sVariable.add('Test1');
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;