请教大哥些 关于 for 循环错误
vart1: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
请问是什么原因
鱼油你好！你的代码中 for 循环语法有误，Pascal 语言要求 for 循环必须使用赋值运算符 :=，而你直接写了 t1 To t2，缺少了 :=。
错误行：
for t1 To t2 do
正确写法应该是：
for t1 := t1 to t2 do
但请注意，使用全局变量 t1 作为循环控制变量可能引起混淆（因为循环会修改 t1 的值）。建议声明一个局部变量来作为循环计数器，例如：
var
i: Integer;
begin
t1 := StrToInt(Edit2.Text);
t2 := StrToInt(Edit3.Text);
for i := t1 to t2 do
t3 := i;// 这里将每个循环的值赋给 t3
Edit4.Text := IntToStr(t3);
end;
这样修改后，代码会更清晰，且能避免语法错误。如果还有问题，欢迎继续问！
以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。 本帖最后由 zzzzzzz7 于 2025-11-20 20:06 编辑
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;
哦哦 这样才行谢谢小甲鱼老师了
zzzzzzz7 发表于 2025-11-20 20:00
FishC 发表于 2025-11-20 19:47
鱼油你好！你的代码 ...
鱼油，还是同样的语法错误！for 循环必须使用赋值运算符 :=，你写的 for tt1 To tt2 do 仍然缺少 :=。
正确的写法应该是：
procedure TForm1.Button2Click(Sender: TObject);
var
tt1:integer;
tt2:integer;
tt3:integer;
i:integer; // 添加循环变量
begin
tt1:=strtoint(Edit2.text);
tt2:=strtoint(Edit3.text);
tt3 := 0; // 初始化tt3
for i := tt1 to tt2 do// 这里必须要有 :=
tt3 := i;
edit4.Text:=inttostr(tt3);
end;
关键点：
- for 循环必须写成 for 变量 := 起始值 to 结束值 do
- 不要直接用输入变量作为循环控制变量，应该用单独的循环变量
- 建议在使用前初始化所有变量
这样修改后就能正常编译了！
以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。 zzzzzzz7 发表于 2025-11-20 20:00
procedure TForm1.Button2Click(Sender: TObject);
var
tt1:integer=0;
加上中间变量 i看起来更清晰
页:
[1]