数据库应用程序设计离线作业答案(11)

2013浙大远程教育

if pos('.',scr.caption)=0 then

scr.Caption:=scr.Caption+'.';

fb:=true;

pnt:=false;

fbcaption:='';

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

pnt:=false;

fstnm:=0;

fb:=false;

fbcaption:='';

er:=false;

scr.Caption:='0.';

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

if er then exit;

scr.Caption:='0.';

end;

end.