我已经读过，Delphi应该是为Delphi 9中的每个循环获得的。这个功能是否已经成为这个语言？我的Delphi 2009 IDE似乎没有识别每个语法。这是我的代码：
- procedure ProcessDirectory(p_Directory,p_Output : string);
- var
- files : TStringList;
- filePath : string;
- begin
- files := GetSubfiles(p_Directory);
- try
- for (filePath in files.Strings) do
- begin
- // do something
- end;
- finally
- files.Free;
- end;
- end;
解决方法
- procedure ProcessDirectory(p_Directory,p_Output : string);
- var
- files : TStringList;
- filePath : string;
- begin
- files := GetSubfiles(p_Directory);
- try
- for filePath in files do
- begin
- // do something
- end;
- finally
- files.Free;
- end;
- end;