[已解决]请教大哥些 关于 for 循环错误

zzzzzzz7

var
t1:integer=0;
t2:integer=0;
t3:integer=0;

procedure TForm1.Button2Click(Sender: TObject);
begin
      t1:=strtoint(Edit2.text);
      t2:=strtoint(Edit3.text);
      for t1 To t2 do            //编译时这里出错
      t3:=t1;

      edit4.Text:=inttostr(t3);
end;                           


//////////////////
编译项目，目标：G:\AAApascaltext\project1.exe: 退出代码1,错误: 1
unit1.pas(80,14) Error: Syntax error, ":=" expected but "TO" found


请问是什么原因

最佳答案

月排行榜 / 总排行榜

FishC

昨天 19:47

鱼油你好！你的代码中 for 循环语法有误，Pascal 语言要求 for 循环必须使用赋值运算符 :=，而你直接写了 t1 To t2，缺少了 :=。

错误行：

1. for t1 To t2 do

复制代码

正确写法应该是：

1. for t1 := t1 to t2 do

复制代码

但请注意，使用全局变量 t1 作为循环控制变量可能引起混淆（因为循环会修改 t1 的值）。建议声明一个局部变量来作为循环计数器，例如：

1. 
   
2. var
   
3.   i: Integer;
   
4. begin
   
5.   t1 := StrToInt(Edit2.Text);
   
6.   t2 := StrToInt(Edit3.Text);
   
7.   for i := t1 to t2 do
   
8.     t3 := i;  // 这里将每个循环的值赋给 t3
   
9.   Edit4.Text := IntToStr(t3);
   
10. end;
    

复制代码

这样修改后，代码会更清晰，且能避免语法错误。如果还有问题，欢迎继续问！

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

跳转到最佳答案楼层

FishC

鱼油你好！你的代码中 for 循环语法有误，Pascal 语言要求 for 循环必须使用赋值运算符 :=，而你直接写了 t1 To t2，缺少了 :=。

错误行：

1. for t1 To t2 do

复制代码

正确写法应该是：

1. for t1 := t1 to t2 do

复制代码

但请注意，使用全局变量 t1 作为循环控制变量可能引起混淆（因为循环会修改 t1 的值）。建议声明一个局部变量来作为循环计数器，例如：

1. 
   
2. var
   
3.   i: Integer;
   
4. begin
   
5.   t1 := StrToInt(Edit2.Text);
   
6.   t2 := StrToInt(Edit3.Text);
   
7.   for i := t1 to t2 do
   
8.     t3 := i;  // 这里将每个循环的值赋给 t3
   
9.   Edit4.Text := IntToStr(t3);
   
10. end;
    

复制代码

这样修改后，代码会更清晰，且能避免语法错误。如果还有问题，欢迎继续问！

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

zzzzzzz7

FishC 发表于 2025-11-20 19:47
鱼油你好！你的代码中 for 循环语法有误，Pascal 语言要求 for 循环必须使用赋值运算符 :=，而你直接写了 t ...

procedure TForm1.Button2Click(Sender: TObject);
var
  tt1:integer=0;
  tt2:integer=0;
  tt3:integer=0;
  i:integer;
begin
      tt1:=strtoint(Edit2.text);
      tt2:=strtoint(Edit3.text);
      for i:=tt1 To tt2 do
      tt3:=tt1;

      edit4.Text:=inttostr(tt3);
end;                    


哦哦 这样才行  谢谢小甲鱼老师了

FishC

zzzzzzz7 发表于 2025-11-20 20:00
FishC 发表于 2025-11-20 19:47
鱼油你好！你的代码 ...

鱼油，还是同样的语法错误！for 循环必须使用赋值运算符 :=，你写的 for tt1 To tt2 do 仍然缺少 :=。

正确的写法应该是：

1. 
   
2. procedure TForm1.Button2Click(Sender: TObject);
   
3. var
   
4.   tt1:integer;
   
5.   tt2:integer;
   
6.   tt3:integer;
   
7.   i:integer;   // 添加循环变量
   
8. begin
   
9.   tt1:=strtoint(Edit2.text);
   
10.   tt2:=strtoint(Edit3.text);
    
11.   tt3 := 0;   // 初始化tt3
    
12.   
    
13.   for i := tt1 to tt2 do  // 这里必须要有 :=
    
14.     tt3 := i;
    
15. 
    
16.   edit4.Text:=inttostr(tt3);
    
17. end;
    

复制代码

关键点：
- for 循环必须写成 for 变量 := 起始值 to 结束值 do
- 不要直接用输入变量作为循环控制变量，应该用单独的循环变量
- 建议在使用前初始化所有变量

这样修改后就能正常编译了！

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

爬虫121

zzzzzzz7 发表于 2025-11-20 20:00
procedure TForm1.Button2Click(Sender: TObject);
var
  tt1:integer=0;

加上中间变量 i  看起来更清晰