[maNika]

Народ, подскажите пжста: как читать данные из DBEdit. конкретно необходимо прочитать оттуда число.. все врмя пишет, что 0, хотя на самом деле там определенное чсло.

[Black Raider]

попробовал, даже

Код:

1	label1.Caption:=DBEdit1.Text;

замечательно работает.

[maNika]

хм. делаю точно так же.. было прочитано несколько статей, подскажите, почему он пишет 0, хотя в элементе четко видно, что прописано кнкретное число.

procedure TfrmTempCalib.DBEditRead(out DownTemp,UpTemp: extended);
begin

UpTemp:=strtoFloat(DBEditUpThresold.Text);
DownTemp:=strtoint(DBEditDownThresold.Text) ;

end;

делаю так - пишет 0.

[Black Raider]

Где пишет?
код покажите. ибо попробовал ваш код все нормально отрабатывает.

[maNika]

далеее использую переменные - пишет 0..

[Black Raider]

Вот так работает, не видя ваш код трудно понять где ошибка

Код:

1 2 3 4 5 6 7

procedure TForm1.Button2Click(Sender: TObject); var rt,rt1:real; begin   DBEditRead(rt,rt1);   label1.caption :=floattostr(rt);   label2.caption :=floattostr(rt1); end;

Код:

1 2 3 4 5 6 7

procedure TForm1.DBEditRead(out DownTemp,UpTemp: real); begin   UpTemp:=strtoFloat(DBEditUpThresold.Text); DownTemp:=strtoint(DBEditDownThresold.Text) ;   end;

[maNika]

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