请问个基本问题，类的释放

[xsf2516624]

type
  TMyType =class(TObject)
    public
      vmS: TMemoryStream;
    constructor Create;
    destructor Destroy; override;
    procedure CreateFS();
  end;

{ TMyType }

constructor TMyType.Create;
begin
  vmS:=TMemoryStream.Create;
end;

procedure TMyType.CreateFS;
begin
  vmS.LoadFromFile('1.exe');
end;

destructor TMyType.Destroy;
begin
  //vmS.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
VAR
  vMT: TMyType;
begin
  vMT:= TMyType.Create;
  vMT.CreateFS;
  vMT.Free;//这里进行释放的时候请问在 TMyType.Create;创建的内存流会不会自动给释放？
end;

[bdmh]

系统会自己回收,不过最好不要让系统做这些事情,还是多些一句话吧

[Seamour]

当然不会

[kampan]

不会，需手动Free释放； 动态数组、字符串可以自动释放

[lyhoo163]

TMyType是类，不是对象（类的实例），delphi编译器会自动释放它。

[dinoalex]

有构建create,一般就有释构

[ok1411]

不太清楚，写一下总没错的

[Harryfin]

当然是不会了...

[火龙岛主]

procedure TForm1.Button1Click(Sender: TObject);
VAR
vMT: TMyType;
begin
vMT:= TMyType.Create;
vMT.CreateFS;
vMT.Free;//这里进行释放的时候请问在 TMyType.Create;创建的内存流会不会自动给释放？ //会的, 但也只有这种没有宿主的情况可以
end;

[Harryfin]

不会吧... 如果会的话，基本上即使很不讲究的人写的程序都不怎么会内存泄漏了。

宿主不宿主其实是一样的。所谓宿主，只不过是对象设计时用了一定的模式，能够在宿主类释放的时候，由宿主类主动通知从属类进行释放而已。如果按你这种说法，我宿主类不通知从属类进行释放，是不是也不会内存泄漏呢？

[diecode]

需要自己释放
我全是自己释放的

[林石公]

好像各执一辞，别教坏别人啊
楼主的析构函数中内存流的free一句是注释掉的
回答要慎重啊

[wintergoes]

vmS.Free;
这句话是必须要用的
TMyType的实例对象在释放时不会自动释放类里的对象的
当然,进程正常关闭的话会把所有的资源都释放掉,但是如果你的TMyType对象在一个进程的某次运行中多次创建\销毁,就会造成内存泄漏,有可能把你的程序的内存全部用光,而导致进程死掉

[xsf2516624]

谢谢各位朋友了，还是给他释放好

[AsheBin]

我平时的做法是：
需要绑定到控件或者其他对象上的（也就是有宿主的），不手动释放，宿主会处理。
宿主为nil的临时对象，一般放在try...finally...end;里面，随用随释放。
那种不需要宿主的，也就是Create后面没有括号（即不写Owner,也不写Nil）的，我一般也释放了，好像没出现什么问题。
请各位高手指教！