时间到时 EDIT中内容改变怎么实现？？？

Question

a,b:integer;if FormatDateTime('HH:mm',now) = '16:10'  then
begin
ado1.Close;
ado1.SQL.Clear;
ado1.SQL.Add('select * from DPackingDetail where bcno='''+edtbcno.Text+'''');
ado1.Open;
a:=ado1.fieldbyname('OutputQty').AsInteger;
b:=ado1.fieldbyname('PrintNGQty').AsInteger;
Edit1.text :=Format('%d%%',[trunc((a-b)/a*100)]);方法我知道求具体操作 变量定义成什么类型给EDIT控件关联一个变量 ，对变量赋值，用UPDATEDATA(FALSE)

Answer 1

得出的结果EDIT1.TEXT 中的值为50% 这个50%要定义成什么变量啊 FOLAT REAL？？

Answer 2

String吧,你要浮点型就用double吧.
  然后要StrToFloat()

Answer 3

时间16：10时 从数据库中读取数据进行计算
EDIT1中内容改变怎么写啊或者说UPDATEDATA(FALSE)写在什么地方

Answer 4

timer定时事件里判断时间是否符合
符合就执行。

Answer 5

我没用TIMER啊 不会用请参看我的代码，给个解释啊！！

Answer 6

那你确实要用到timer控件吧..不是你怎么实时监控时间??

Answer 7

var
  f: Double;
  s: string;
begin
  f := 0.25122;
  s := Format('%2f%%', [f * 100]);
  edit1.text := s; //25.00% ;若想变成25%, Format('%d%%', [f * 100]);.
end;