什么是 Free Pascal Error 3208 Illegal assignment to for-loop variable [关闭]

Question

告诉我有关 Free Pascal 编译器错误 3208“对 for 循环变量的非法赋值”。

Answer 1

我们无法在 For-In 循环中更改索引器变量的值。

为了演示，将此代码复制到一个简单程序类型的新项目中，然后编译它。然后，将'$'字符添加到第一行的“Define symDemo”注释中，将其转换为编译器指令，并尝试编译。

讨论见https://forum.lazarus.freepascal.org/index.php?topic=17488.0

program ForIn; {$AppType Console} { Define symDemo}
var
  strChrLst              , // list of  characters, without separators
  idxChrOne : string     ; // only one character; indexer in For-In loop
  strChrUpr : string = ''; // uppercase version of the current character, init-ed to empty
begin
  strChrLst := 'a[z'                            ; // initialize list of characters to work on
  for idxChrOne in strChrLst do begin           ; // scan all characters in the list
    {$IfNDef symDemo}                           ; // when "symDemo" is not defined
    strChrUpr := UpCase( idxChrOne )            ; // convert the current character to upcase
    {$Else}                                     ; // when "symDemo" is     defined
    idxChrOne := UpCase( idxChrOne )            ; // gives Error 3208 on "idxChrOne"
    {$EndIf}                                    ; // done with "symDemo"
    if ( strChrUpr < 'A' )                        // when the current character is
    Or ( strChrUpr > 'Z' ) then begin           ; //    outside the range of alphabet letters
      writeln(StdErr,'Not a letter: ',idxChrOne); // emit the non-letter character on StdErr
    end                                         ; // done with the non-letter character
  end                                           ; // done scanning characters in the list
end.