我正在开发一个程序来计算不同数据的平均值,TStringGrid
我想使用一个程序。它被称为calcola
。
procedure calcola(numero:ShortInt; StringGrid:TStringGrid; pbarprog:ShortInt);
var i,j,cont,num:shortint;
avg,temp,numfl:double;
a:string;
Edit1:TEdit;
begin
if StringGrid.Colcount>1 then
//other code
avg:=temp/cont;
TLabel(FindComponent('Label'+IntToStr(num))).Caption:=FloatToStrF(avg, ffGeneral, 1, 1);
Edit1.Text:=FloatToStr(StrToFloat(TLabel(FindComponent('Label'+IntToStr(num))).Caption)*10);
TProgressBar(FindComponent('ProgressBar'+IntToStr(i+pbarprog))).Position:=StrToInt(Edit1.Text);
//other code
end;
end;
end;
在这个过程中,Lazarus 告诉我“ Identifier not found FindComponent ”。然后我剪切/粘贴了相同的代码procedure TForm1.Button1Click(Sender: TObject);
,我没有错误。
我需要使用FindComponent()
inside calcola
,我该怎么做?