自定义过程问题,

Question

unit setother;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;type
  Tsetother_Form = class(TForm)
    gzmc_edit: TLabeledEdit;
    gzje_edit: TLabeledEdit;
    cmdadd: TBitBtn;
    cmddel: TBitBtn;
    cmdmodi: TBitBtn;
    cmdclose: TBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
   procedure FormCreate(Sender: TObject);
   private
    procedure mynew;
    { Private declarations }
  public
    add:boolean;
    { Public declarations }
  end;var
  setother_Form: Tsetother_Form;implementation{$R *.dfm}procedure Tsetother_Form.FormCreate(Sender: TObject);
begin
  mynew;
  add:=False;
end;
end.procedure Tsetother_Form.mynew;
   begin
     ADOQuery1.close;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('select * from gzdm order by gzdm');
     ADOQuery1.open;
     if   ADOQuery1.RecordCount>0 then
        begin
         cmdadd.Enabled:=true;
         cmdmodi.Enabled:=true;
         cmddel.Enabled:=true;
         cmdclose.Enabled:=true;
        end
      else
        begin
         cmdadd.Enabled:=true;
         cmdmodi.Enabled:=False;
         cmddel.Enabled:=False;
         cmdclose.Enabled:=true;
         end;
     end;
  end;
我自定义一个过程,为何有警告?????

Answer 1

cmdclose.Enabled:=true;
         end;
     end;
多了一个end;

Answer 2

procedure Tsetother_Form.FormCreate(Sender: TObject);
begin
  mynew;
  add:=False;
end;procedure Tsetother_Form.mynew;
   begin
     ADOQuery1.close;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('select * from gzdm order by gzdm');
     ADOQuery1.open;
     if   ADOQuery1.RecordCount>0 then
        begin
         cmdadd.Enabled:=true;
         cmdmodi.Enabled:=true;
         cmddel.Enabled:=true;
         cmdclose.Enabled:=true;
        end
      else
        begin
         cmdadd.Enabled:=true;
         cmdmodi.Enabled:=False;
         cmddel.Enabled:=False;
         cmdclose.Enabled:=true;
         end;
     end;end.//这个位置是整个程序结束的地方标志啊，你要把函数写到这个上边的

Answer 3

procedure Tsetother_Form.mynew;
begin
  ADOQuery1.close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from gzdm order by gzdm');
  ADOQuery1.open;
  if   ADOQuery1.RecordCount>0 then
  begin
    cmdadd.Enabled:=true;
    cmdmodi.Enabled:=true;
    cmddel.Enabled:=true;
    cmdclose.Enabled:=true;
 end
 else
 begin
   cmdadd.Enabled:=true;
   cmdmodi.Enabled:=False;
   cmddel.Enabled:=False;
   cmdclose.Enabled:=true;
 end;
end;procedure Tsetother_Form.FormCreate(Sender: TObject);
begin
  mynew;
  add:=False;
end;end.现在编译看看如何呢？