подскажите как... организовать цикл из компонентов

[OLEG'arh]

стуация такая

form1.Button1.Caption:='x';
form1.Button2.Caption:='x';
form1.Button3.Caption:='x';
form1.Button4.Caption:='x';
form1.Button5.Caption:='x';


как сделать что то вроде

for i:=1 to 5 do
form1.Button(i).Caption:='x';

[mihali4]

Самый прямой:
var i: integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if (Components[i] is TButton) then
if ((Components[i] as TButton).Name='Button1') or
((Components[i] as TButton).Name='Button2') or
((Components[i] as TButton).Name='Button3') or
((Components[i] as TButton).Name='Button4') or
((Components[i] as TButton).Name='Button5') then
(Components[i] as TButton).Caption:='x';
end;
end;

[Taras]

А вот и не так!

var i: integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if (Components[i] is TButton) then
with Components[i] as TButton do Name := 'x';
end;

[OLEG'arh]

если извесно, что всего 5 Button, их нумерация начинается с 1 до 5 позиции

for j:= 1 to 5 do
(Form1.Components[j] as TButton).Caption:='x';

да кстати компилятор выдовал ошибку в варианте который представил mihali4
а так заработала. может это изза того что у меня делфи6???

var i: integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TButton) then
if ((Form1.Components[i] as TButton).Name='Button1') or
((Form1.Components[i] as TButton).Name='Button2') or
((Form1.Components[i] as TButton).Name='Button3') or
((Form1.Components[i] as TButton).Name='Button4') or
((Form1.Components[i] as TButton).Name='Button5') then
(Form1.Components[i] as TButton).Caption:='x';
end;
end;

[mihali4]

А вот и не так!

А если на форме до этого были накиданы другие баттоны с именами, например, But1, But2 ?
Не стоит горячиться...

если извесно, что всего 5 Button, их нумерация начинается с 1 до 5 позиции:
for j:= 1 to 5 do
(Form1.Components[j] as TButton).Caption:='x';

А с чего вы взяли, что в массиве индексов компонентов формы ваши кнопки будут иметь индексы от 1 до 5 ?

[Virtson]

for i:= 1 to 5 do
( Form1.FindComponent(Format('Button% d',[i])) as TButton).Caption:= '!';

[mihali4]

То Virtson
Это все верно. А если кнопки в общем случае имеют абсолютно непохожие имена?

[OLEG'arh]

Сообщение от Virtson

for i:= 1 to 5 do
( Form1.FindComponent(Format('Button% d',[i])) as TButton).Caption:= '!';

ВОТ! то что мне нужно.
благодарю за помощь

[inkvizitor]

Сообщение от Taras

А вот и не так!

var i: integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if (Components[i] is TButton) then
with Components[i] as TButton do Name := 'x';
end;

А если другие компоненты на форме.ПРограмме все равно какие элементы на форме что ли?Хотя идея не плохая т.к. если по mihali, то
возникает вопрос: а если этих элементов 100 и более тогда что?
Создать процедуру?

[Сильванович Михаил]

Сообщение от Taras

А вот и не так!

var i: integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if (Components[i] is TButton) then
with Components[i] as TButton do Name := 'x';
end;

Так изменять-то вроде было надо Caption, а не Name... :D