查人人中国名人网重庆奇石交易市场:这段程序哪里错了？Delphi的
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 19:21:35
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
value1,value2,sum:integer;
begin
value1:=strtoint(edit1.Text);
value2:=strtoint(edit2.Text);
labe14.caption:=inttostr(value1+value2);
end;
end.
提示未经宣布标识符labe14
Undeclared identifier:'labe14'
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
value1,value2,sum:integer;
begin
value1:=strtoint(edit1.Text);
value2:=strtoint(edit2.Text);
labe14.caption:=inttostr(value1+value2);
end;
end.
提示未经宣布标识符labe14
Undeclared identifier:'labe14'
labe14改成label4就可以了!
这里应该是label 4而不是labe 14
你把L写成了一!
二楼正解！
最好try一下，再对try做个处理，有错误提示比较好
Delphi提示得很明白了, 即, 标识符lebe14没有声明就使用了.
注意: 你窗体上放的是 "Label4", (4前面是字母L的小写, l), 而你后面 "labe14.caption" 里面用的是labe14, (4前面是数字1, 而非字母l) !
看明白了吗?
很简单啊 是label4 不是labe14 注意字母L和数字1的区别
这个还用调试嘛？在button1的属性中是没有label4的，应该把label4改为form1.label4，就对了撒。
二楼正解！
最好try一下，再对try做个处理，有错误提示比较好