时间到时 EDIT中内容改变怎么实现？？？
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)

[解决办法]
String吧,你要浮点型就用double吧.
然后要StrToFloat()
[解决办法]

探讨

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

[解决办法]
那你确实要用到timer控件吧..不是你怎么实时监控时间??
[解决办法]

Delphi(Pascal) code

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;