小编Kub*_*taS的帖子

我有(静态)类GT_MyClass

GT_MyClass = class
private
  class var FImage : TJpegImage;

  class function GetImage: TJpegImage;
public
  property Image : TJpegImage  read GetImage;
end;

在函数GetImage我创建FImage如果它还不存在.

class function GT_Myclass.GetImage: TJpegImage;
begin
    if not Assigned(FImage) then
    begin
      FImage := TJpegImage.Create;
    end;
    Result := FImage;
end;

在最后我想要FreeAndNil(FImage)

finalization
  if Assigned(FImage) then
    FreeAndNil(FImage);

但在最终版块中,我无法看到私有的var FImage ......

你能帮帮我吗？

谢谢!

BTW:我想要属性Image绝对是静态的