Question

free pascal 程序运行时跳过某段(普通的for循环语句),完全没有运行,不知道为何,求各位帮帮忙.

for i:=1 to length(s2) do
begin
if length(s1[1])+length(s2[i])=187 then
begin
delete(s1,1,1);
end;
end;
就是跳过了这段.
编译无错误.

Answer 1

起码也该告诉大家，s1和s2是什么吧？

看你的代码，貌似s1、s2都是字符串？ 那么s2的长度多少？ 最有嫌疑的是这句：

if length(s1[1])+length(s2[i])=187 then

s1[1]是s1的第1个字符；s2[i]则是s2的第i的字符，length（字符）是什么意思？它们都是＝1，永远也不会＝187。。。

Answer 2

考虑下s2的长度是否不大于1

追问

谢谢!

Answer 3

串s2是空串 ！！！

追问

谢谢!