Тема: DBEdit
Показать сообщение отдельно
  #7  
Старый 09.11.2010, 11:32
maNika maNika вне форума
Прохожий
 
Регистрация: 05.10.2010
Сообщения: 7
Репутация: 10
По умолчанию

Цитата:
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
Ответить с цитированием