Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
Res: Real;
begin
Res:=0;
for i:=1 to 6 do
if TEdit(FindComponent('Edit' + IntToStr(i))).Tag = 1 then
Res:=Res + StrToFloat(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
Label1.Caption:=FloatToStr(Res);
end; |