|
#1
|
|||
|
|||
DBEdit
Народ, подскажите пжста: как читать данные из DBEdit. конкретно необходимо прочитать оттуда число.. все врмя пишет, что 0, хотя на самом деле там определенное чсло.
|
#2
|
|||
|
|||
попробовал, даже
Код:
label1.Caption:=DBEdit1.Text; замечательно работает. Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |
#3
|
|||
|
|||
хм. делаю точно так же.. было прочитано несколько статей, подскажите, почему он пишет 0, хотя в элементе четко видно, что прописано кнкретное число.
procedure TfrmTempCalib.DBEditRead(out DownTemp,UpTemp: extended); begin UpTemp:=strtoFloat(DBEditUpThresold.Text); DownTemp:=strtoint(DBEditDownThresold.Text) ; end; делаю так - пишет 0. |
#4
|
|||
|
|||
Где пишет?
код покажите. ибо попробовал ваш код все нормально отрабатывает. Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |
#5
|
|||
|
|||
далеее использую переменные - пишет 0..
|
#6
|
|||
|
|||
Вот так работает, не видя ваш код трудно понять где ошибка
Код:
procedure TForm1.Button2Click(Sender: TObject); var rt,rt1:real; begin DBEditRead(rt,rt1); label1.caption :=floattostr(rt); label2.caption :=floattostr(rt1); end; Код:
procedure TForm1.DBEditRead(out DownTemp,UpTemp: real); begin UpTemp:=strtoFloat(DBEditUpThresold.Text); DownTemp:=strtoint(DBEditDownThresold.Text) ; end; Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |
#7
|
|||
|
|||
Цитата:
далее, в другой форме Цитата:
выводит 00, хотя прописано 90 и 100 |