Цитата:
procedure TfrmTempCalib.DBEditRead(out DownTemp,UpTemp: extended);
begin // DownTemp,UpTemp
//НЗ_не читаетсЯ из DBEdit
UpTemp:=strtoFloat(DBEditUpThresold.Text);
DownTemp:=strtoint(DBEditDownThresold.Text) ;
end;
|
далее, в другой форме
Цитата:
frmTempCalib.DBEditRead(UpTemp,DownTemp);
StatusBar.Panels [1].Text :=(Floattostr(UpTemp)+Floattostr(DownTemp));
|
выводит 00, хотя прописано 90 и 100