delphi程序报错 expected '=' but '(' found 在线等

Question

我用access做库,用Query连库
程序如下:unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons;type
  Tform_login = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure tform_login.formcreate(sender:tobject);
    procedure tform_login.formclose(sender:tobject; var action; tcloseaction);
    procedure tform_login.formshow(sender:tobject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  form_login: Tform_login;implementation{$R *.dfm}procedure Tform_login.BitBtn1Click(Sender: TObject);
var
  Js:String;
begin
   if not query.locate('yonghuming;mima',vararrayof([combobox_name.Text,
    password.Text]),[]) then
   begin
    showmessage('密码不正确，请重新输入!');
    li_login:=li_login+1;
    password.setfocus;
    password.selectall;
    if li_login>=3 then
    begin
      showmessage('你是非法用户，系统退出');
      close;
      application.Terminate;
    end;
   end
   else
      case query1.FieldByName('leixing').asinteger of
         0:js:= '系统管理员';
         1:js:= '操作员';
      end;
      form_main.statusbar1.panels[0].text:='当前用户:'+ query1.fieldbyname
      ('用户名').AsString;
      form_main.statusbar1.panels[1].text:='用户角色:'+ js;
      close;
    end;
end;
procedure tform_login.formcreate(sender:tobject);
   begin
   with
      with query1 do begin
      close;
      sql.clear;
      sql.add('select * form yonghubiao');
      open;
      try
        while not eof do
        begin
          combobox_name.items.add(fieldbyname('yonghuming').asstring);
          next;
        end;
        combobox_name.itemindex:=0;
        finally;
      end;
      end;
      li_login:=0;
end;
   procedure Tform_login.BitBtn2Click(Sender: TObject);
begin
      query1.Close;
      application.Terminate;
end;procedure tform_login.formclose(sender:tobject; var action; tcloseaction);
begin
      action := cafreel
end;procedure tform_login.formshow(sender:tobject);
begin
      password.setfocus;
end;end

Answer 1

报错的时候说 expected '=' but '(' foundprocedure tform_login.formcreate(sender:tobject);
procedure tform_login.formclose(sender:tobject; var action; tcloseaction);
procedure tform_login.formshow(sender:tobject);过程声明有问题
大家帮我看下
谢谢

Answer 2

procedure tform_login.formcreate(sender:tobject);
procedure tform_login.formclose(sender:tobject; var action; tcloseaction);
procedure tform_login.formshow(sender:tobject);改成
procedure formcreate(sender:tobject);
procedure formclose(sender:tobject; var action; tcloseaction);
procedure formshow(sender:tobject);然后在底下实现的时候,再加上tform_login

Answer 3

怎么还是报内存错误
delphi中调试错误在哪个菜单中

Answer 4

我建了个主窗体form_main和登录窗体form_login
可是老是有错误说,file not found 'form_login.dcu' 或  file not found 'form_main.dcu'
怎么回事啊