UC知道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 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