blocks|key|1098727|text|TIniFile类是提供INI文件服务的Windows函数的松散包装器。该API不支持编写注释，因此TIniFile也不能这样做。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1098728|如果要发出带有注释的文件，则必须找到不同的INI文件库，或者滚动自己的文件库。|1098729|entityMap^0|0|8|1E|8|0|0^^$0|@$1|2|3|4|5|6|7|J|8|@$9|K|A|L|B|C]|$9|M|A|N|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|O|8|@]|D|@]|E|$]]|$1|H|3|-4|5|6|7|P|8|@]|D|@]|E|$]]]|I|$]]

The <code>TIniFile</code> class is a loose wrapper around the Windows API functions the provide INI file services. That API does not support writing comments and so <code>TIniFile</code> cannot do so either. 

If you want to emit files with comments, you will have to find a different INI file library, or roll your own.

blocks|key|1098701|text|TIniFile或TMemIniFile都不支持读取或写入INI文件注释。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1098702|如果需要添加或检索注释，则需要使用TStringList，并使用Names和Values功能来读取和写入值。您可以用SaveToFile保存文件并用LoadFromFile加载它，但是自己处理默认值和各种ReadXX方法需要做更多的工作。|1098703|entityMap^0|0|8|9|B|0|H|B|W|5|12|6|1M|A|22|C|2U|6|0^^$0|@$1|2|3|4|5|6|7|J|8|@$9|K|A|L|B|C]|$9|M|A|N|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|O|8|@$9|P|A|Q|B|C]|$9|R|A|S|B|C]|$9|T|A|U|B|C]|$9|V|A|W|B|C]|$9|X|A|Y|B|C]|$9|Z|A|10|B|C]]|D|@]|E|$]]|$1|H|3|-4|5|6|7|11|8|@]|D|@]|E|$]]]|I|$]]

Neither <code>TIniFile</code> or <code>TMemIniFile</code> supports reading or writing INI file comments. 

If you need to add or retrieve comments, you'll need to use a <code>TStringList</code> instead, and use the <code>Names</code> and <code>Values</code> functionality to read and write values. You can save the file with <code>SaveToFile</code> and load it with <code>LoadFromFile</code>, but it takes more work to handle the default values and various <code>ReadXX</code> methods yourself.

blocks|key|374784|text|实际上，您可以使用TIniFile：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|374785|WriteString('Section',+';+Comment'#13#10+%2B+'Name',+'Value');|code-block|syntax|javascript|374786|下面是一个不存在该值的检查：|374787|if+ReadString('Section',+'Name',+#13#10)+=+#13#10+then
++WriteString('Section',+';+Comment'#13#10+%2B+'Name',+'Value');|374788|(TIniFile有ValueExists函数，但它读取整个部分并搜索密钥。我更喜欢这张小支票。)|374789|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Actually, you can do it with TIniFile:

<pre><code>WriteString('Section', '; Comment'#13#10 + 'Name', 'Value');
</code></pre>

Here's with a check that the value doesn't exist:

<pre><code>if ReadString('Section', 'Name', #13#10) = #13#10 then
 WriteString('Section', '; Comment'#13#10 + 'Name', 'Value');
</code></pre>

(TIniFile has ValueExists function, but it reads the whole section and searches for the key. I prefer this small check.)

blocks|key|1376048|text|我知道这是一个老问题，但我会添加我的功能，以添加评论到ini文件。完全可以改进。很抱歉语法mistakes.English不是我的主要语言|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1376049|class+Procedure+TCoreIniAsTextFile.AddComment(ini:+TiniFile;+Comment:+array+of+string;+Section:+string+=+'';+Key:+string+=+'');
Const
++LIST_NUMERIC_SIZE:+Integer+=+3;
var
++IniAsText+++++++++:+Tstrings;
++i+++++++++++++++++:+Integer;
++j+++++++++++++++++:+Integer;
++Buffer++++++++++++:+string;
++//+Method+to+remove+previous+comment
++Procedure+WriteComment(StartLine:+Integer);
var
++Linha+++++++++++++:+Integer;
++LinBuf++++++++++++:+string;
begin
++repeat
++++//+add+a+space+to+avoid+a+except+in+the+following+line
++++//+if+a+line+is+blank
++++LinBuf+:=+Trim(IniAsText[StartLine])+%2B+'+';
++++if+LinBuf[1]+=+';'+then+//+is+a+comment
++++++IniAsText.Delete(StartLine);
++until+(LinBuf[1]+<>+';')+or+(IniAsText.Count+=+0);
++//+add+new+comment
++for+Linha+:=+High(Comment)+downto+Low(Comment)+do
++++begin
++++++IniAsText.Insert(StartLine,+';'+%2B+Comment[Linha]);
++++end;

++IniAsText.Insert(StartLine,+'');+//+add+a+line+for+esthetic+purposes++
++IniAsText.SaveToFile(ini.FileName);
end;
//+function+to+add+zeros+to+left+1+->+001
function+StrZeroReg(num:+Int64;+nsize:+Integer):+string;
begin
++Result+:=+IntToStr(num);
++Result+:=+StringOfChar('0',+nsize+-+Length(Result))+%2B+Result;
end;++
begin
++IniAsText+:=+nil;+//+to+avoid+a+warning+below
++Section+:=+Uppercase(Section);
++Key+:=+Uppercase(Key);
++try
++++IniAsText+:=+TStringList.Create;
++++if+not+FileExists(ini.FileName)+then
++++++IniAsText.SaveToFile(ini.FileName);++//+Create+a+blank+file+

++++IniAsText.LoadFromFile(ini.FileName);

++++//+If+no+section+or+key+direct+comment+to+file+header
++++if+(Section+=+EmptyStr)+and+(Key+=+EmptyStr)+then
++++++begin
++++++++WriteComment(0);
++++++++Exit;
++++++end;

++++//+If+key+is+passed+section+is+required+
++++if+(Section+=+EmptyStr)+and+(Key+<>+EmptyStr)+then
++++++begin
++++++++if+not+ini.SectionExists(Section)+then
++++++++++raise+Exception.Create('Section+is+required+to+write+key+comment');
++++++end;

++++//If+section+is+passed,+but+not+key+assume+coment+is+to+section+
++++if+(Section+<>+EmptyStr)+and+(Key+=+EmptyStr)+then
++++++begin
++++++++//+section+must+exists
++++++++if+not+ini.SectionExists(Section)+then
++++++++++raise+Exception.Create('Section+'+%2B+Section+%2B+'+does+not+exists');

++++++++//+search+for+section+location+in+file+
++++++++for+i+:=+0+to+IniAsText.Count+-+1+do
++++++++++begin
++++++++++++Buffer+:=+Trim(Uppercase(IniAsText[i]));
++++++++++++if+(Buffer+=+'['+%2B+Section+%2B+']')+then
++++++++++++++begin
++++++++++++++++WriteComment(i);
++++++++++++++++Exit;
++++++++++++++end;
++++++++++end;

++++++++//+sanity+check
++++++++raise+Exception.Create('Section+'+%2B+Section+%2B+'+does+not+exists');
++++++++exit;
++++++end;

++++//+If+key+and+section+is+passed+assume+is+a+key+comment
++++if+not+ini.ValueExists(Section,+Key)+then
++++++begin

++++++++//+some+ini+libraries+save+stringlists+to+ini+and+save+values+as
++++++++//+valuea001,valuea002,...,valueannn+.+then+search+KEY000+as+compatibility
++++++++if+ini.ValueExists(Section,+Key+%2B+StrZeroReg(0,+LIST_NUMERIC_PALCES))+then
++++++++++Key+:=+Key+%2B+StrZeroReg(0,+LIST_NUMERIC_PALCES)
++++++++else+//+if+not+found+Key000
++++++++++raise+Exception.Create('KEY+'+%2B+Section+%2B+'\'+%2B+Key+%2B+'+does+not+exists');
++++++end;

++++//+search+combination+of+section+%2B+key+
++++for+i+:=+0+to+IniAsText.Count+-+1+do
++++++begin
++++++++Buffer+:=+Trim(Uppercase(IniAsText[i]));
++++++++if+(Buffer+=+'['+%2B+Section+%2B+']')+then
++++++++++begin
++++++++++++for+j+:=+i+%2B+1+to+IniAsText.Count+-+1+do
++++++++++++++begin
++++++++++++++++Buffer+:=+Trim(Uppercase(IniAsText[j]))+%2B+'+';+//+space+to+avoid+a+exception+
++++++++++++++++//+Buffer[1]+<>+';'+to+avoid+commented+lines+
++++++++++++++++//+Key+%2B+'=',+Buffer)+=+1+to+avoid+false+cognats+but+will+fail+if+param+is+
++++++++++++++++//+param+=value+(valid+to+some+libraries)
++++++++++++++++if+(Buffer[1]+<>+';')+and+(Pos(Key+%2B+'=',+Buffer)+=+1)+then
++++++++++++++++++begin
++++++++++++++++++++WriteComment(j);
++++++++++++++++++++Exit;
++++++++++++++++++end;
++++++++++++++end
++++++++++end;
++++++end;

++finally
++++if+Assigned(IniAsText)+then
++++++IniAsText.Free;
++end;
end;|code-block|syntax|javascript|1376050|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I know its a old question, but i'll add my funcion to add comment to ini file. Fell free to improve . 
Sorry about grammar mistakes.English is not my primary language

<pre><code>class Procedure TCoreIniAsTextFile.AddComment(ini: TiniFile; Comment: array of string; Section: string = ''; Key: string = '');
Const
 LIST_NUMERIC_SIZE: Integer = 3;
var
 IniAsText : Tstrings;
 i : Integer;
 j : Integer;
 Buffer : string;
 // Method to remove previous comment
 Procedure WriteComment(StartLine: Integer);
var
 Linha : Integer;
 LinBuf : string;
begin
 repeat
 // add a space to avoid a except in the following line
 // if a line is blank
 LinBuf := Trim(IniAsText[StartLine]) + ' ';
 if LinBuf[1] = ';' then // is a comment
 IniAsText.Delete(StartLine);
 until (LinBuf[1] &lt;&gt; ';') or (IniAsText.Count = 0);
 // add new comment
 for Linha := High(Comment) downto Low(Comment) do
 begin
 IniAsText.Insert(StartLine, ';' + Comment[Linha]);
 end;

 IniAsText.Insert(StartLine, ''); // add a line for esthetic purposes 
 IniAsText.SaveToFile(ini.FileName);
end;
// function to add zeros to left 1 -&gt; 001
function StrZeroReg(num: Int64; nsize: Integer): string;
begin
 Result := IntToStr(num);
 Result := StringOfChar('0', nsize - Length(Result)) + Result;
end; 
begin
 IniAsText := nil; // to avoid a warning below
 Section := Uppercase(Section);
 Key := Uppercase(Key);
 try
 IniAsText := TStringList.Create;
 if not FileExists(ini.FileName) then
 IniAsText.SaveToFile(ini.FileName); // Create a blank file 

 IniAsText.LoadFromFile(ini.FileName);

 // If no section or key direct comment to file header
 if (Section = EmptyStr) and (Key = EmptyStr) then
 begin
 WriteComment(0);
 Exit;
 end;

 // If key is passed section is required 
 if (Section = EmptyStr) and (Key &lt;&gt; EmptyStr) then
 begin
 if not ini.SectionExists(Section) then
 raise Exception.Create('Section is required to write key comment');
 end;

 //If section is passed, but not key assume coment is to section 
 if (Section &lt;&gt; EmptyStr) and (Key = EmptyStr) then
 begin
 // section must exists
 if not ini.SectionExists(Section) then
 raise Exception.Create('Section ' + Section + ' does not exists');

 // search for section location in file 
 for i := 0 to IniAsText.Count - 1 do
 begin
 Buffer := Trim(Uppercase(IniAsText[i]));
 if (Buffer = '[' + Section + ']') then
 begin
 WriteComment(i);
 Exit;
 end;
 end;

 // sanity check
 raise Exception.Create('Section ' + Section + ' does not exists');
 exit;
 end;

 // If key and section is passed assume is a key comment
 if not ini.ValueExists(Section, Key) then
 begin

 // some ini libraries save stringlists to ini and save values as
 // valuea001,valuea002,...,valueannn . then search KEY000 as compatibility
 if ini.ValueExists(Section, Key + StrZeroReg(0, LIST_NUMERIC_PALCES)) then
 Key := Key + StrZeroReg(0, LIST_NUMERIC_PALCES)
 else // if not found Key000
 raise Exception.Create('KEY ' + Section + '\' + Key + ' does not exists');
 end;

 // search combination of section + key 
 for i := 0 to IniAsText.Count - 1 do
 begin
 Buffer := Trim(Uppercase(IniAsText[i]));
 if (Buffer = '[' + Section + ']') then
 begin
 for j := i + 1 to IniAsText.Count - 1 do
 begin
 Buffer := Trim(Uppercase(IniAsText[j])) + ' '; // space to avoid a exception 
 // Buffer[1] &lt;&gt; ';' to avoid commented lines 
 // Key + '=', Buffer) = 1 to avoid false cognats but will fail if param is 
 // param =value (valid to some libraries)
 if (Buffer[1] &lt;&gt; ';') and (Pos(Key + '=', Buffer) = 1) then
 begin
 WriteComment(j);
 Exit;
 end;
 end
 end;
 end;

 finally
 if Assigned(IniAsText) then
 IniAsText.Free;
 end;
end;
</code></pre>

Can I use the <code>TIniFile</code> class from Delphi in any way to write comments to my INI files ?

<pre><code>[VALUES]
; first number
a=5
; something else
b=25
...
...
</code></pre>

In the examples (<a href="http://delphi.about.com/od/objectpascalide/a/tinifile.htm" rel="nofollow noreferrer">EXAMPLE</a>) I found on the web there are sometimes nice comment lines added, but not shown how to create, read , write these lines ....

Write INI files with comment lines using TiniFile class

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

我可以使用德尔福的TIniFile类以任何方式为我的INI文件写评论吗？[VALUES]; first numbera=5; something elseb=25......在我在网上发现的示例()中，有时添加了一些很好的注释行，但没有显示如何创建、读取和写入这些行.

问使用TiniFile类编写带有注释行的INI文件
EN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用TiniFile类编写带有注释行的INI文件EN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用TiniFile类编写带有注释行的INI文件
EN