第一个程序就出错，帮菜鸟看看 ( 积分: 50 )

D

diver123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.addClick(Sender: TObject);
var
X , Y: Integer;
begin
X := 100;
Y := 20;
Edit1.Text := IntToStr(X + Y);
end;

end.
好象说addClick没定义...........................

 

D

diver123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #2

Build
[Error] Unit1.pas(26): Undeclared identifier: 'addClick'
[Error] Unit1.pas(32): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(32): '(' expected but ':=' found
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

出错信息

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #3

1.删去以下部份：
procedure TForm1.addClick(Sender: TObject);
var
X , Y: Integer;
begin
X := 100;
Y := 20;
Edit1.Text := IntToStr(X + Y);
end;

2.按 F12 回到窗体，双击 Button1
3.在形成的框架中填写代码（红色部分）：
procedure TForm1.Button1Click(Sender: TObject);
[red]var
X , Y: Integer;[/red]
begin
[red] X := 100;
Y := 20;
Edit1.Text := IntToStr(X + Y);[/red]
end;

 

D

diver123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #4

可我要按钮显示add啊................这个程序不是加法器嘛..............那得怎么弄啊？（这个程序是delphi2手册里的例子，是不是版本不兼容啊）

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #5

你在属性编辑器中把 Button1 的 Name 改为 Add （原为 Button1）即可。

 

D

diver123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #6

kaida大哥，为什么我把add改成Button1却不行，非得照你说的双击Button1再针对它写那段代码才对呀？

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #7

把 Button1 的 Name 改为 Add 后，在属性编辑器的事件页的 OnClick 的右边点击一下，会出现下拉列表，选中 addClick 即可（这样才能将事件与对象关联）。

 

G

gotiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #8

这个问题让我想起,很久以前自己学程序的时候.

 

D

diver123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #9

还是没弄懂这个事件与对象的关系...................其实你教我改的，在代码上就是把add改成Button1,为什么在{$R *.dfm}后直接加那段代码却不行（我猜想是没有双击事件），可这个规律是怎样的呢？好象我的书上都没说具体怎么操作的

 

D

diver123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #10

有没有什么书一步步讲怎么写程序的呀？新手看哪本书好呀？

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #11

新手大多如此，到书店随便买一本入门书，一般都会讲到的。

 

M

menzhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #12

不是不行！但是你得告诉delphi处理button空件的方法是哪个！双击button后，delphi就知道了！！！！“把 Button1 的 Name 改为 Add 后，在属性编辑器的事件页的 OnClick 的右边点击一下，会出现下拉列表，选中 addClick 即可（这样才能将事件与对象关联）。
“就是告诉delphi这个关系！！！！

 

G

guanrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-14

• #13

TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure addClick(Sender: TObject); //先定义再用 实现了 还得调用才能看到效果 一般在一个按钮的点击事件里执行就可以了
private
{ Private declarations }
public
{ Public declarations }
end;