delphi散点知识

1、如果在TADOTable表post之前取消提交操作

procedure Tform2.ADOTable1BeforePost(DataSet: TDataSet);
begin
   ADOTable1.Cancel;//如果只用这一句，要成功post
   abort;///如果只用这一句，操作会一直停留在这一行，不能换行
end;

2、控制只能输入2位小数的金额

var DotPos,len,fsPos:Integer;
begin
  result:=key;
  if not (key in ['-','0'..'9','.',#13,#8,#27]) then  result:=#0
  else
  begin
    DotPos:=pos('.',je);
    fsPos:=pos('-',je);
    Len:=length(je);
    if key in ['.','-'] then  ///输入小数点的情况
      begin
        if ((key='.') and (DotPos>0)) or ((fsPos>0) and (key='-')) then  //不能多于两个小数点 或负号
          begin
            result:=#0;
            exit;
          end;
        if ((Len<=0) and (key='.')) or ((key='-') and (selStart<>0)) then //开始不能输入小数点，负号只能在开始输
          begin
            result:=#0;
            exit;
          end;
        if (key='.') and (selStart<Len-2) then   ///没有小数点是输入小数点的情况，
        begin
           result:=#0;
            exit;
        end;
      end; 
    if key in ['0'..'9'] then  //输入数字的情况
       if (DotPos>0) and(DotPos<=Len-2) and (selStart>=DotPos) then  result:=#0;
    if key=#13 then result:=#13;
    if key=#27 then result:=#27;
  end;
end;

3、delphi程序里出现cannot create拒绝访问的错误时，这个用户对此盘没有写的权限导致。解决方法：在属性里对everyone的写权限放开