Вычисление с помощю цикла

[Ambros]

Здравствуйте, У меня такой вопрос. Есть несколько качеств, каждое качество вычисляется путем перемножения Edit и сомбобокса,а ответ идет в label.
Каждое качества имеет по edit, сомвовох и label. Вот код для вычисления одного из качеств. Суть вопроса состоит в том как сделать все это через цикл, а не заниматься копипастом?

procedure TForm6.Button1Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=a*strtofloat(combobox1.items[combobox1.ItemIndex]);
label6.Caption:=floattostrf(b,ffFix ed,0,2);

[WorldMaster]

Ну можно создать для каждого качества свои контроли со своими именами.
например :
свойство 1 = prop1, label_prop1, edit_prop1, combox_prop1
свойство n = propn, label_propn, edit_propn, combox_propn

затем в цикле произвести поиск нужных контролов на форме и обработать данные из них.

поиск наверное как то так будет выглядеть:

function MyFindChildControl(AControl: TControl; const AClassName: string): TControl;
var
  I: Integer;
begin
  Result := nil;
  if Assigned(AControl) then
    for I := 0 to AControl.ControlCount - 1 do
      if CompareText(AControl.Controls[i].ClassName, AClassName) = 0 then
      begin
        Result := AControl.Controls[i];
        Exit;
      end;
end;

Могу ошибаться, на делфи давно уже не пишу.

[Аватар]

Несколько - это сколько? Наверняка лучше использовать какой-то табличный объект. Да и имена типа edit1 это бутерброд, который всегда падает маслом вниз ))

[Serge_Bliznykov]

согласен с советом WorldMaster, можно переименовать контролы так, чтобы они были связаны именами.

допустим, что они называются
Для Свойства1: edit1 combobox1 label_prop1
Для Свойства2: edit2 combobox2 label_prop2
и т.д.

тогда все их можно легко вычислить в таком цикле:

var MyEdit, MyCombo, MyLabel : TControl;
  mc : TCombobox;
  i : integer;
begin
   i:=1;
   MyEdit := FindComponent('Edit'+IntToStr(i));
   while Assigned(MyEdit) do begin
        MyCombo := FindComponent('ComboBox'+IntToStr(i));
        MyLabel := FindComponent('label_prop'+IntToStr(i));
        if Assigned(MyCombo) and Assigned(MyLabel) then begin
            mc := TCombobox(MyCombo);
            TLabel(MyLabel).Caption := FloatToStrF( StrToFloat(TEdit(MyEdit).Text) * StrToFloat(mc.items[mc.ItemIndex]) ,ffFixed,0,2);
        end;
       Inc(i)
   end;
end;

p.s. писал в браузере, возможны опечатки...

[Black Fregat]

Если таких комбинаций реально много, я бы не поленился написать свой Control, который будет интегрировать кнопку, метку, комбо и эдит.

Но можно с этим не заморачмваться, а просто создавать нужные кнопку, метку, комбо и эдит динамически, одновременно занося их в массив (или в TList, кому как больше нравится). При этом у кнопки выставить значение Tag, равное индексу в массиве. Это даст возможность в обработчике кнопки взять этот Tag и сразу получить доступ к метке, комбо и эдиту по этому индексу.