新手求教private Sub cmdNext_Click()什么意思？

Question

例如删除按钮的代码：    
  priavte   Sub   cmdNext_Click()   
  procedure   Tform.Button4Click(Sender:   TObject);   
  begin   
      if   MessageDlg('确定要删除记录吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes   then   
      begin   
          table.Edit;   
          table1.Delete;   
          table1.Post; 
      end;
  end; 

Answer 1

priavte  Sub  cmdNext_Click()没见过，能编译通过吗？

Answer 2

 priavte  Sub  cmdNext_Click()  
应该是VB的语法
在DELPHI中不能编译的

Answer 3

编译也通过不了，
Delaration expected but identifier 'private' found可是书上是这么说的，我是按书上抄的

Answer 4

你看的是什么书哦？ delphi不可能这么写啊。把priavte  Sub  cmdNext_Click()  这一行去掉还差不多。

Answer 5

呵呵，那个好像是vb的写法unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    procedure cmdNext_Click();
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button4Click(Sender: TObject);
begin
  if  MessageDlg('确定要删除记录吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes  then
  begin
    table.Edit;
    table1.Delete;
    table1.Post;
  end;
end;procedure TForm1.cmdNext_Click;
beginend;end.

Answer 6

呵呵，那个好像是vb的写法unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    procedure cmdNext_Click();
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button4Click(Sender: TObject);
begin
  if  MessageDlg('确定要删除记录吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes  then
  begin
    table.Edit;
    table1.Delete;
    table1.Post;
  end;
end;procedure TForm1.cmdNext_Click;
beginend;end.

Answer 7

我看的是《DELPHI7.0数据库入门指南与范例解析》

Answer 8

把完整代码贴出来，priavte  Sub  cmdNext_Click()是VB的写法，在DELPHI中是编译通不过的。

Answer 9

完整代码是这样的：
unit test;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.Active:=True;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if table1.Bof then
  begin
    Button1.Enabled:=False;
  end
  else
  begin
    table1.Prior;
    button2.Enabled:=True;
    button4.Enabled:=True;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if table1.Eof then
  begin
    button2.Enabled:=False;
  end
  else
  begin
    table1.Next;
    button1.Enabled:=True;
    button4.Enabled:=True;
  end;
end;//private Sub cmdNext_Click()
procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage('请输入学号，姓名');
  table1.Append;
end;//private Sub cmdNext_Click()
procedure TForm1.Button4Click(Sender: TObject);
begin
  if MessageDlg('确定要删除？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
  begin
    table1.Edit;
    table1.Delete;
    table1.Post;
  end;
end;end.书上是有priavte  Sub  cmdNext_Click()的，然后我屏蔽掉了之后能编译通过了