需要变量或常量表达式，帕斯卡

Question

常量与变量

嗨，我目前正在处理文件。全局声明的 Char 文件。我试图在 char 文件中找到任何字母（A、b 等），我知道每行只有一个字符，我想将其更改为点。（可变泰卡 - 点）当我想写 char 时，它说"预期的常量表达式"，但是当我将其更改为常量（注释部分中的代码）时，它说"需要变量"。我在这里做错了什么？感谢您的回复。

procedure TForm1.Button3Click(Sender: TObject);
var znak,tecka:char;
begin
  tecka:='.';
  assignfile(f,'Znaky.dat');
  reset(f);
  While not eof(f) do begin
    read(f,znak);
    Case znak of 'a'..'z','A'..'Z':
      seek(f,filepos(f)-1);
      Write(f,tecka);           // write(f,'.');
    end;
  end;
  closefile(f);
end;

Answer 1

你做错了什么与行write(f,tecka);无关，而与帕斯卡中的块规则有关。

如果你想编译器停止抱怨，你需要将 case 语句更改为：

case znak of 
  'a'..'z','A'..'Z': begin
    seek(f,filepos(f)-1);
    write(f,tecka);
  end;
end; {case}

问题是 case 语句需要一个或多个常量表达式（例如 'a'..'z' ） of之后。:后，您只能放置单个语句或开始结束块。因为你在:后面放了 2 个语句，所以 Pascal 想将第二个语句解释为另一个大小写子句（例如：'0'..'9': ），但事实并非如此。

如果要在一个部分中放置多个语句，则必须始终使用开始-结束块。

这也是 if 语句中的一个陷阱：

if x then 
  statement1;
  statement2;  <-- statement2 will always be executed, because it's not part of the if  

这应该是：

if x then begin
  statement1;
  statement2;     <-- statement2 depends on x.
end;

正是出于这个原因，许多人总是使用开始-结束块。
即使只有一个陈述。
如果你以后更改代码，你只需将额外的语句放在已经存在的开始-结束块中，你不能忘记把它放进去。

请注意，分配文件-重置-查找等调用已经过时了。
在 Delphi 中，使用字符串列表进行处理更有效。

procedure TForm1.Button3Click(Sender: TObject);
var 
  MyText: TStringList;
  i,a: integer;
  znak,tecka:char;
const
  Alpha = 'a'..'z','A'..'Z';
  Filename = 'Znaky.dat';
begin
  tecka:='.';
  MyText:= TStringlits.create;
  MyText.LoadFromFile(Filename);
  //loop though all lines.
  for i:= 0 to MyText.Lines.Count-1 do begin
    //loop though every char in a line (string chars start counting from 1 !)
    for a:= 1 to Length(MyText.Lines[i]) do begin
      case MyText.Lines[i][a] of 
        Alpha: begin
          MyText.Lines[i][a]:= tecka;
        end;
      end; {case} 
    end; {for}
  end; {for}
  MyText.WriteToFile(Filename);
end;

这提高了性能，因为您只执行磁盘 IO 两次，而不是多次。

个人吹毛求疵：请不要将case和while等关键字大写，这是Pascal，而不是VB。