简体德尔菲代码:
var
AppSettings: TIniFile;
Camera: TStringList;
begin
AppSettings := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
Camera := TStringList.Create;
AppSettings.ReadSectionValues('Camera', Camera);
FreeAndNil(Camera);
FreeAndNil(AppSettings);
end;
简化的INI文件内容:
[Camera]
; A commented line
SomeKey=SomeValue
AnotherKey=AnotherVal
目前,由于 INI 中该部分开头的注释行,TStringList
为空,但我希望Count
为 2。
有没有办法加载 INI 文件中存在注释行 (;
( 的部分?
我在Windows 10上使用Delphi 10.3.2。INI 文件的行尾#13#10
(rn
(。
在上面的示例中,刚刚将TIniFile
替换为TMemIniFile
,现在ReadSectionValues
返回正确的结果。