D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-09-18 #4 动态创建窗体的释放例子type Tt = recordendvar a:array of Tt;procedure TForm2.Button1Click(Sender: TObject);var i: integer;begin ShowMessage(IntToStr(length(a))); for i := 0 to length(a) - 1 do begin a.form.Free ; end; setlength(a, 0); Result := true;end;
动态创建窗体的释放例子type Tt = recordendvar a:array of Tt;procedure TForm2.Button1Click(Sender: TObject);var i: integer;begin ShowMessage(IntToStr(length(a))); for i := 0 to length(a) - 1 do begin a.form.Free ; end; setlength(a, 0); Result := true;end;
