Требуется подсказка с TEdit

[Zurs]

Приветствую! Вопрос такой:Есть набор TEdit'ов от 1 до 10 и массив с цифрами также от 1 до 10. Есть ли возможность заполнить все TEdit'ы из цифрами из массива в цикле, если да то как? TStringGreed не пойдет нужны именно Edit'ы. Заранее спасибо.

[Stilet]

Не знаю стоит ли тебе так делать, но раз спросил то:

j:=0;
for i:=0 to ComponentCount-1 do 
 if Components[i] is TEdit then begin
   TEdit(Components[i]).Text:=IntToStr(Массив[j]);
   inc(j);
 end;

Но я бы делал не так )

[Iron Monk]

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

Не знаю стоит ли тебе так делать, но раз спросил то:

j:=0;
for i:=0 to ComponentCount-1 do 
 if Components[i] is TEdit then begin
   TEdit(Components[i]).Text:=IntToStr(Массив[j]);
   inc(j);
 end;

Но я бы делал не так )

Пронумеровать Tag всем Edit и далее:

const
num: array [1..10] of string = ('1','2','3','4','5','6','7','8','9','10');
var
i: integer;
begin
    for i:= 0 to Form1.ControlCount - 1 do
    if TEdit(Components[i]).Tag = i then
       TEdit(Components[i]).Text:= num[i];
end;

[Serge_Bliznykov]

ну и ещё вариант до кучки:

var
  i : integer;
  curEdit : TComponent;
begin

 for I := 1 to 10 do begin
    curEdit := FindComponent('Edit'+Trim(IntToStr(i)));
    if Assigned(curEdit) and (curEdit  is TEdit) then
        TEdit(curEdit).Text := IntToStr( Massiv[i] );
 end; 
end;

[Arigato]

Trim(IntToStr(i)) - разве могут быть пробелы?

[Serge_Bliznykov]

Arigato, нет, конечно! перестраховался!