Question

constant vs variable

嗨，我目前正在处理文件。其全局声明的Char文件。我试图在char文件中找到任何字母（A，b等），我知道每行只有一个字符，我想将其更改为点。（可变TECKA - DOT）当我想写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);无关，而是与pascal中的块规则有关。

如果您希望编译器停止抱怨，则需要将case语句更改为：

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

问题是case语句需要'a'..'z'之后的一个或多个常量表达式（例如of）。在:之后，您只能放置一个语句或一个开始结束块。因为你在: Pascal想要将第二个语句解释为另一个案例子句（例如：'0'..'9':）之后放置2个语句，而不是。

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

这也是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;

正是由于这个原因，许多人总是使用开始端块即使只有一个声明如果您稍后更改代码，只需将您的额外语句放在已经存在的开始结束块中，您就不会忘记将其放入。

请注意，assignfile-reset-seek等调用已经过时了在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。

需要变量或常量表达式，Pascal

1 个答案: