程序设计时的语句疑问!

Question

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  i: integer;
  begin
  with combobox1 do
     begin
     query1.edit;
     query1.fieldbyname(DBGrid1.SelectedField.displayname).asstring:=
items.strings[itemindex];
     query1.Post;
     visible:=false;
     label1.visible:=false;
     end;
end;
错误;
[Error] Unit1.pas(83): Statement expected but 'PROCEDURE' found
请大下们帮我推敲推敲
谢谢!

Answer 1

procedure TForm1.ComboBox1Click(Sender: TObject);前面是什么？

Answer 2

unit lizi7;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, DBTables, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    Query1: TQuery;
    Label1: TLabel;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  application.Terminate;
end;procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
  str1: string;
begin
  with DBGrid1.SelectedField do
  label1.Visible:=true;
  label1.Caption:='qingshuru'+str1+'dezhi';
  with combobox1 do
    begin
    items.Clear;
    case DBGrid1.SelectedField.Index of
    0:
      begin
      items.Add('1001');
      items.Add('1002');
      items.Add('1003');
      items.Add('1005');
      end;
    (略)
    5:
      begin
      items.Add('香港');
      items.Add('台湾');
      items.Add('日本');
      items.Add('广州');
      end;
   end;
end;procedure TForm1.ComboBox1Click(Sender: TObject);
var
  i: integer;
  begin
  with combobox1 do
     begin
     query1.edit;
     query1.fieldbyname(DBGrid1.SelectedField.displayname).asstring:=
items.strings[itemindex];
     query1.Post;
     visible:=false;
     label1.visible:=false;
     end;
end;end.整个程序是这样的！

Answer 3

items.Add('日本');
          items.Add('广州');
        end;
    end;
  end;
end;
procedure TForm1.ComboBox1Click(Sender: TObject);

Answer 4

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  i: integer;
  begin
   with combobox1 do
    begin
      query1.edit;
      query1.fieldbyname(DBGrid1.SelectedField.displayname).asstring:=items.strings[itemindex];
      query1.Post;
      visible:=false;
      label1.visible:=false;
    end;
  end;
end;

Answer 5

某个位置少或多了End;------------------------------------
我是一个菜鸟，菜菜菜菜菜菜菜菜

Answer 6

用Castalia或者CodeRush的语法高亮功能看一下，就知道哪里不配对了。

Answer 7

procedure TForm1.DBGrid1DblClick
这个过程的case语句少了个end