Вопросик по Delphi
Приветствую всех.
Еще один глупый вопрос.
Допустим есть несколько Edit'ов, в которые вносятся какие-то значения.
Например:
var
a:array[1..10]of double;
begin
a[1]:=StrToFloat(Edit1.Text);
a[2]:=StrToFloat(Edit2.Text);
a[3]:=StrToFloat(Edit3.Text);
..............
a[10]:=StrToFloat(Edit10.Text);
Необходимо сделать так, чтобы не присваивать каждой переменной массива
соответственный Edit, а чтобы они вносились сами, без их прописывания.
Ну не знаю что-то вроде этого a[n]:=StrToFloat(Edit[n].Text);(строчка
написана просто так из головы)
Вообще возможно так сделать? Просто покороче бы надо.
Hello Alapin,
Saturday, March 13, 2004, 5:02:04 PM, you wrote:
Возможно, конечно!
var
P :TWinControl;
i,j :Integer;
begin
P := Edit1.Parent;
j := 1;
for i := 0 to P.ControlCount - 1 do
if P.Controls[i] is TEdit then
begin
a[j] := StrToFloat((P.Controls[i] as TEdit).Text);
Inc(j);
end;
end;