Delphi利用数组动态创建的多个Edit怎么手动释放呢??谢谢!!!

来源:百度知道 编辑:UC知道 时间:2024/06/16 02:21:10
下边是我动态创建的Edit
procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer;
begin
SetLength(a,200);
for i := 0 to 199 do begin
a[i] := TEdit.Create(self);
a[i].Parent := self;
a[i].AutoSize := False;
a[i].Height := (ClientHeight-Button1.Height-20)div 10;
a[i].Width := ClientWidth div 20;
a[i].Top := (i div 20)*a[i].Height;
a[i].Left := (i mod 20 )*a[i].Width ;
a[i].Text := inttostr(i+1);
end;
end;

我现在想通过另一个ButtonClick事件来释放上边所创建的这些Edit,请问我需要怎样写这个代码呢,麻烦知道的高手们告诉我一下,新年降至,祝福你们新年快乐(注意动态创建的那个Button2Click事件可能会被点几下,也就是说Button2Click事件不一定只执行一次哦)分数不多,请各位海涵!!!
谢谢你们的回答 问题已经解决 我觉得TheFiend的答案更好 因为他避免了二次释放,我之前做的和 yangrunf2009的做法大致相似,同时我建议你们在释放的时候加上这么一句:A[i] := nil;(以第三种为准)

procedure TForm9.btn2Click(Sender: TObject);
var
I: Integer;
begin
if Length(btnArr)>0 then //避免二次释放
begin
for I := 0 to Length(btnArr) - 1 do
btnArr[i].Free;
end;

end;

if TButton(a[i]) <> nil then
FreeAndNil(TButton(a[i]));

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,IniFiles, StdCtrls;

type

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
a:array of TEdit;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integ