调用过程出错?

Question

private
__________________________
    procedure ShowRecrd;  
-----------------------------
    { Private declarations }
  public
    { Public declarations }
  end;var
  fKind: TTfKind;implementation{$R *.dfm}
procedure TfKind.ShowRecrd();
begin
  showmessage('asdfsa');
end;
procedure TfKind.FormCreate(Sender: TObject);
begin
   ShowRecrd;
end;end.

Answer 1

这哪叫定义?procedure TfKind.cmdAddClick(Sender: TObject);
procedure ShowRecrd();
begin
  showmessage('asdfsa');
end;
begin
 ShowRecord();
end;

Answer 2

unit frmKind;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;type
  TfKind = class(TForm)
    Label1: TLabel;
    txtKind: TEdit;
    lblKind: TLabel;
    cboKind: TComboBox;
    lblName: TLabel;
    cmdAdd: TButton;
    cmdModi: TButton;
    cmdDel: TButton;
    cmdClose: TButton;
    listKind: TListBox;
    procedure cmdCloseClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure ShowRecrd;////////这里也出错
  public
    { Public declarations }  end;var
  fKind: TfKind;implementationuses modMydatas;{$R *.dfm}procedure TfKind.cmdCloseClick(Sender: TObject);
begin
  fkind.Close;
end;procedure TfKind.FormActivate(Sender: TObject);
begin
  cbokind.ItemIndex :=0;
end;procedure TfKind.cmdAddClick(Sender: TObject);
begin
 ShowRecord();  ////////这里出错
end;procedure ShowRecrd();
begin
  showmessage('asdfsa');end;procedure TfKind.FormCreate(Sender: TObject);
begin
 listKind.Items.Clear;
end;end.

Answer 3

或者var
TfKind:TForm;
procedure ShowRecrd();//这才叫声明!implementation{$R *.dfm}procedure ShowRecrd();
begin
  showmessage('asdfsa');end;
procedure TfKind.cmdAddClick(Sender: TObject);
begin
 ShowRecord();
end;

Answer 4

如果按你的方法!
procedure ShowRecrd();
begin
  showmessage('asdfsa');
end;
要改
procedure TfKind.ShowRecrd();
begin
  showmessage('asdfsa');
end;因为ShowRecrd()属于TfKind类!

Answer 5

[Error] frmKind.pas(78): Undeclared identifier: 'ShowRecord'
////这个方法的出错提示,我用的是6.0
TfKind:TForm;
procedure ShowRecrd();//这才叫声明!implementation{$R *.dfm}procedure ShowRecrd();
begin
  showmessage('asdfsa');end;
procedure TfKind.cmdAddClick(Sender: TObject);
begin
 ShowRecord();
end;

Answer 6

我只是举个例子!别一点不改啊!我又不知道你的Form的类名!unit frmKind;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;type
  TfKind = class(TForm)
    Label1: TLabel;
    txtKind: TEdit;
    lblKind: TLabel;
    cboKind: TComboBox;
    lblName: TLabel;
    cmdAdd: TButton;
    cmdModi: TButton;
    cmdDel: TButton;
    cmdClose: TButton;
    listKind: TListBox;
    procedure cmdCloseClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure ShowRecrd;////////这里也出错
  public
    { Public declarations }  end;var
  fKind: TfKind;
  procedure ShowRecrd();implementationuses modMydatas;{$R *.dfm}procedure TfKind.cmdCloseClick(Sender: TObject);
begin
  fkind.Close;
end;procedure TfKind.FormActivate(Sender: TObject);
begin
  cbokind.ItemIndex :=0;
end;procedure TfKind.cmdAddClick(Sender: TObject);
begin
 ShowRecord();  ////////这里出错
end;procedure ShowRecrd();
begin
  showmessage('asdfsa');end;procedure TfKind.FormCreate(Sender: TObject);
begin
 listKind.Items.Clear;
end;end.

Answer 7

呵呵，我看了你们写的，错误在这里：[Error] frmKind.pas(78): Undeclared identifier: 'ShowRecord'
注意错误是：    ShowRecord
而你们的声明是：ShowRecrd哈哈，都是偷懒惹的祸！

Answer 8

呵呵，请注意你们声明的过程和调用的不一致哈！
[Error] frmKind.pas(78): Undeclared identifier: 'ShowRecord'
                                                 ^^^^^^^^^^ 
procedure ShowRecrd();                            
          ^^^^^^^^^
       

Answer 9

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
  procedure ShowRecrd();/////////////申明一下;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ShowRecrd();
begin
  showmessage('asdfsa');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
   ShowRecrd;
end;end.

Answer 10

忘了去掉
  private
    procedure ShowRecrd;////////这里的去掉!!!!

Answer 11

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
   { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
   procedure call1(sender:tobject;x,y:integer);
implementation{$R *.DFM}
procedure call1(sender:tobject;x,y:integer);
begin
showmessage(inttostr(y));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
call1(sender,10,20);
end;end.

Answer 12

大家都太粗心了，除了tigerd88(蔬菜) 。奇怪tigerd88(蔬菜) 之后还有人继续回答（包括我）:->