16,749
社区成员
发帖
与我相关
我的任务
分享
procedure CalculateAvg(ALabel: TCustomLabel; AEdits: array of TCustomEdit);
var
i, iSum: integer;
begin
iSum := 0;
for i := 0 to High(AEdits) do
iSum := iSum + StrToInt(AEdits[i].Text); //假设你的EDIT都是数字文本了
ALabel.Caption := FloatToStr(iSum / Length(AEdits));
end;
begin
CalculateAvg(LbAvg, [Edit1, Edit2, Edit3, Edit4, Edit5]);
CalculateAvg(LbSomrthing, [Edit1, Edit2, Edit3]);
end;