заполнение edit ,ранее созданных динамически

[Игорь Кулакевич]

edit_C:TEdit;  
label_C:TLabel;
i,ii,ns,nst,k:integer;
s1,s2,st:string;
begin
for i := 1 to strtoint(edit25.text) do begin
edit_c:=tedit.Create(owner);
  edit_c.Top:=i*25;
  edit_c.Left:=40;
  edit_c.Width:=80;
  edit_c.Name:='edit_c1_'+inttostr(i);
  edit_c.Text:=edit_c.Name;
  form2.GroupBox22.insertControl(edit_c);
end;

создаю таким образом на форме некоторое кол-во edit. тут все нормально.
далее в определенные момент мне нужно заполнить эти массив из файла и дублировать каждое значение массива в созданный эдит.

SetLength(C1,ns);
k:=19 ;
for i:=1 to ns do begin
s:=BFile.Strings[k];
  C1[i]:=strtofloat(s[50]+s[51]+s[52]+','+s[54]);

  k:=k+1;
end;

как мне обратиться к созданным edit в том же цикле что и создание массива.?
заранее спасибо за любые ответы.

[Stilet]

Как вариант:

Var e:Tedit;
...
 e:=form2.GroupBox22.FindComponent('edit_c1_'+inttostr(i));
 if e<>nil then e.Text:=Чему-то
...

[Игорь Кулакевич]

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

Как вариант:

Var e:Tedit;
...
 e:=form2.GroupBox22.FindComponent('edit_c1_'+inttostr(i));
 if e<>nil then e.Text:=Чему-то
...

[DCC Error] Unit2.pas(864): E2010 Incompatible types: 'TEdit' and 'TComponent'

несовместимость типов..хм

[Stilet]

несовместимость типов

Показывай код

[Пепел Феникса]

нормальная ошибка:

Var e:Tedit;
...
 e:=form2.GroupBox22.FindComponent('edit_c1_'+inttostr(i)) as TEdit;
 if e<>nil then e.Text:=Чему-то
...

[Игорь Кулакевич]

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

Показывай код

тот код, что мне написали и вызывает эту ошибку. без него все ок.

[Stilet]

Ну тогда последуй совету Пепла Феникса )

[Игорь Кулакевич]

Сообщение от Пепел Феникса

нормальная ошибка:

Var e:Tedit;
...
 e:=form2.GroupBox22.FindComponent('edit_c1_'+inttostr(i)) as TEdit;
 if e<>nil then e.Text:=Чему-то
...

это вообще результата не дало. и ошибок тоже не вызвало.

[evg_m]

edit_c:=tedit.Create(owner);

 e:=form2.GroupBox22.FindComponent('edit_c1_'+inttostr(i)) as TEdit;

чтобы найти form2.GroupBox22 и Owner это должен быть один и тот же объект.

учитывая

 form2.GroupBox22.insertControl(edit_c);

возможно лучше применить FindChildControl

e:=form2.GroupBox22.FindСhildControl('edit_c1_'+inttostr(i)) as TEdit;

кроме того в справке Insertcontrol

Applications should not need to call InsertControl directly.

а в примере Delphi Example)на эту функцию

procedure TForm1.Button1Click(Sender: TObject);
begin
  RemoveControl(Button1);
  GroupBox1.InsertControl(Button1);
end;

Note that it was necessary to remove the button from the Controls property of the form before the button actually moves into the group box.

This code accomplishes the same thing:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Parent := GroupBox1;
end;

[Игорь Кулакевич]

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

чтобы найти form2.GroupBox22 и Owner это должен быть один и тот же объект.

учитывая
возможно лучше применить FindChildControl

e:=form2.GroupBox22.FindСhildControl('edit_c1_'+inttostr(i)) as TEdit;

кроме того в справке Insertcontrol
а в примере Delphi Example)на эту функцию

FindChildControl - то что нужно. заработало)
спасибо всем большое.