【结贴】for语句问题**

souhuchong01

请问for、if 语句需要有end;吗？一个procedure里可以写几个begin...end ?
for 。。。。do
begin
.
.
.
end;
这里还写end;吗？
for.......do
if....then
begin
.
.
end
后面还要写几个end?

Akon

楼主,看下方

for语句
for  i:=1 to 20 do
begin
//写代码
end;

if 语句两种

if i=1 then j := 2;

if i=1 then
begin
j:=2;
j:=3;
end;

souhuchong01

我运行代码时就提示这句话，光标停留在for语句上，红色的。死活非让写end;,我写了end;还是提示这句话。好像写了它看不到似的。
expected 'end' found ‘for’

lisb

你的代码能编译过吗？

souhuchong01

我的代码编译过了，就是以上的错误提示。我很头疼。

lisb

我的代码编译过了，就是以上的错误提示

那到底是编译通过了，还是报错？

souhuchong01

编译没通过，抱错，抱错提示如3楼

souhuchong01

我的代码如下：
procedure TMainForm.DocViewYWXX1_BGWD1Enter(Sender: TObject);
var
i,j,k:integer;
lleft,ltop:integer;
lcombobox:tcombobox;
begin
//datasetshiyan.open;
lleft :=320;
ltop :=700;
//datasetshiyan.first;
j:=self.ComponentCount-1
for i:=0 to j do
begin
   if components is tcombobox then
   begin
     k:=i
     for i:=k to j do
       tcombobox(components[k]).destroy;
   end;
end;
end;

end.
错误提示：
[警告] 循环引用: "Biz:\XSGLXT\WJJ\YWGN1.Func"-->"Biz:\XSGLXT\WJJ\YWGN1.Func"
[错误]Biz:\XSGLXT\WJJ\YWGN1.FUNC.DIR\MainForm.Form.pas(45, 1): line 45: expecting "end", found 'for'
[错误]Biz:\XSGLXT\WJJ\YWGN1.FUNC.DIR\MainForm.Form.pas(45, 5): line 45: expecting ';', found 'i'
[错误]Biz:\XSGLXT\WJJ\YWGN1.FUNC.DIR\MainForm.Form.pas(45, 6): line 45: expecting "end", found ':='

jiahaiminghr

j:=self.ComponentCount-1
需要封号结尾

alang

j:=self.ComponentCount-1;
少一个分号