大家来看下我这个程序是那里错了，请解答，急！~(0分)

W

wwwsinakok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #1

程序要求我从1加到1000的结果，所以我就是触发事件begin和end之间输入以下程序
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
var
i,j:integer;
begin
i:=1; j:=0;
while i<=1000 do
begin
j:=j+i;
inc(i,1);
end;
statictext2.caption:=inttostr(j);
end;
end.
但是按F9运行时老是提示以下错误
[Error] Unit1.pas(31): Statement expected but 'VAR' found
[Error] Unit1.pas(40): Undeclared identifier: 'statictext2'
[Error] Unit1.pas(40): Missing operator or semicolon
[Error] Unit1.pas(42): '.' expected but ';' found
[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.StaticText2Click'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j:integer;
begin
i:=1; j:=0;
while i<=1000 do
begin
j:=j+i;
inc(i,1);
end;
statictext2.caption:=inttostr(j);
end;
end.
statictext2这是什么？？

 

蚊

蚊子情人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #3

看样子你是个新手
1。去掉VAR 前的begin 在运行试试

 

W

wwwsinakok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #4

statictext2，是静态文本显示控件，工具控件里面有。
这个是用来显示出结果用的。

 

W

wwwsinakok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #5

去掉了var前的begin，还是没运行起来，不过提示错误少了，请高手们在帮我解答解答，快有希望了。
现在的错误提示是：
[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.StaticText2Click'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

 

Z

z-jackey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #6

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
j:integer=0;
begin
for i:=0 to 1000 do
inc(j,i);
statictext2.caption:=inttostr(j);
end;
试下

 

C

chenshaizi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #7

在第15行找到'TForm1.StaticText2Click'
删除它

 

W

wwwsinakok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #8

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
j:integer=0;
begin
for i:=0 to 1000 do
inc(j,i);
statictext2.caption:=inttostr(j);
end;
试下
不行哦

 

W

wwwsinakok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #9

chenshaizi
我好感谢你，行了，谢谢！！！流泪！！
能告诉我，你是怎么分析出来的吗

 

W

wwwsinakok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #10

谁能告诉我无什么要删除15行'TForm1.StaticText2Click'
这个是我建立模版时候生成的吗，难道这个指令错误吗，指令是什么意思吗

 

C

chenshaizi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #11

Unsatisfied forward or external declaration: 'TForm1.StaticText2Click'
一看这错误信号就知道了，提示说超前或在外部定义了变量，说明在本单元只有
StaticText2Click这个过程的申明而没有过程的实现部分。下次你就知道不会出现这种错误了。
可惜没有分，我正求分今晚能否能到3000分了