我可以在While语句中使用If语句吗？

Question

while not eof(MyFile) do
begin
  Readln(MyFile,sLine);
  iCheck := pos('*',sLine);

  if iCheck >= 0 then
    K := K + 1;
  else
    K := 1;
  sLine := sArrayParty[K];
end;

K是我的柜台.MyFile设置为文本文件.

我试图在while语句中运行if语句来检查是否有*一行读入sLine.如果是这样,我希望我的计数器递增,从而将以下文本放入数组的下一个索引.所以基本上我有一个文本文件,信息由*分隔符分隔,我希望每条信息都填充一个新的索引.但每当我把if语句放入时,delphi就会发挥作用.

Answer 1

您的代码中有明确的语法错误,编译器会准确地解释它是什么:

[DCC Error] Unit1.pas(22): E2153 ';' not allowed before 'ELSE'

因此,阅读错误消息包含的单词,并删除;之前的else:

if iCheck > 0 then
   K := K + 1
else
  K := 1;    

Unit1.pas(在我的例子中,括号中的数字是编译器停止工作(22)的确切行号,因此行前面的else行是第21行.编辑器窗口底部的行号告诉你哪一行清楚.