آرایه ای از Button ها

[66masi]

با سلام کسی میتونه به من کمک کنه؟؟؟؟؟؟

من میخوام توی دلفی چند تا button داشته باشم در واقع آرایه ای از button ها داشته باشم و یه edit هم داشته باشم با نوشتن شماره button توی textbox و زدن دکمه enabel که اونم button هستش اون عددی که من نوشتم button مربوط به اون فعال بشه بقیه دکمه های روی صفحه غیر فعال بشن؟
ممنون میشم هر کسی که میتونه جواب بده
لطفا فوری!!!!!!!!!!!!!

[mehdimdp]

سلام


var
i:integer;
t:TButton;
begin
for i:=0 to Form1.ControlCount-1 do
begin
if((Form1.Controls[i].Name<>Edit1.Text)and (Controls[i] is TButton))then
begin
t:=Form1.Controls[i] as TButton;
t.Enabled:=false;
end;

[AliReza Vafakhah]

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i := 0 to Self.ComponentCount-1 do
if (Self.Components[i] is TButton) then (Self.Components[i] as TButton).Enabled:=False;

for i := 0 to Self.ComponentCount - 1 do
if (Self.Components[i] is TButton) then
if UpperCase((Self.Components[i] as TButton).Name)=UpperCase(Edit1.Text) then
(Self.Components[i] as TButton).Enabled:=True;
end;

[Felony]

سلام


var
i:integer;
t:TButton;
begin
for i:=0 to Form1.ControlCount-1 do
begin
if((Form1.Controls[i].Name<>Edit1.Text)and (Controls[i] is TButton))then
begin
t:=Form1.Controls[i] as TButton;
t.Enabled:=false;
end;


من کدتون رو کامل نخوندم ولی در اولین نگاه میشه گفت مشکل داره ، چرا شرط اجرای if نامساوی بودن نام کنترل با متن ادیت هست! ؟