обращения к edit по имени

[designer999]

Здравствуйте
Есть у меня 16 едитов с именами argument1..argument16, как можно обратится к ним в цыкле по очереди ?

вот что примерно должно выйти:

for i:=1 to 16 do 
argument[i].text:=iniConstant.ReadString('General', 'argument'+inttostr(i),'');

естестве но это не работает)) это для отображения моих мыслей

по номеру находил в рунете, но если у меня не стандартное название как быть тогда ? очень буду благодарен за помощь

[ex.cluz]

Дык к любым контролам можно в цикле обращаться.
Можно так:

for i := 0 to Form1.ControlCount - 1 do
begin
  if (Form1.Controls[i] is TEdit) then TEdit(Form1.Controls[i]).Text := 'Оно работает!'
end;

[VladimirVB]

Чтобы найти все Edit на форме, потребуется просмотреть свойство Components формы. Свойство ComponentCount определяет количество компонентов в списке Components. Первый компонент из этого списка имеет индекс 0. а последний компонент — индекс ComponentCount-1.

В следующем примере происходит очистка всех шестнадцати Edit

procedure TForm1.Button1Click(Sender: TObject);
var
  Cnt: Integer;
begin
  for Cnt := 0 to Pred(ComponentCount) do
  begin
    if Components[Cnt] is TEdit then
      TEdit(Components[Cnt]).Text := '';
  end;
end;

[designer999]

но это все едиты будут проверятся, а мне нужно только те что имеют название argument+индекс

[VladimirVB]

Uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  Cnt: Integer;
begin
  for Cnt := 0 to Pred(ComponentCount) do
  begin
    if Components[Cnt] is TEdit then
      if ContainsText(TEdit(Components[Cnt]).Name, 'argument') then
        TEdit(Components[Cnt]).Text := '';
  end;
end;

[designer999]

VladimirVB спс большое

[XeruH]

А еще есть FindComponent