[转载]使用CommaText

Rex_love_Burger

墨衍会员 · AI 创作全网分发码龄23年

关注

原创最新推荐文章于 2022-07-13 15:21:58 发布 1.4k 阅读 AI 写同款· GEO 优化 ›

AI权益加码！Claude Code、Cursor等20+工具免费用！购周边限时加赠Coding Plan Lite，畅享主流AI工具！学习进阶更高效！阅读详情

有时需要一个方便的方法存放一个StringList，它只有简单的一行。例如，当你想使用一个INI文件，如何向一个INI文件中写入一行呢，使用CommaText 就能完成这个工作。

这里有个例子，功能是创建一个blah.ini文件，并写入一个如下形式的值:

[My Section]
Memo1=(你在Memo1中输入的文字)

1.在Form1上有两个按钮btnLoad and btnSave和一个Memo1

2.还要加入：
#include <inifiles.hpp>

3.定义变量：
const String iniFile="blah.ini",iniSection="My Section",iniValue="Memo1";

4.保存按钮代码：
void __fastcall TForm1::btnSaveClick(TObject *Sender)
{
TIniFile *ini=new IniFile(ExtractFilePath(Application->ExeName)+iniFile);
ini->WriteString(iniSection,iniValue,Memo1->Lines->CommaText);
delete ini;
}

5.装载按钮代码：
void __fastcall TForm1::btnLoadClick(TObject *Sender)
{
TIniFile *ini=new TIniFile(ExtractFilePath(Application->ExeName)+iniFile);
Memo1->Lines->CommaText=ini->ReadString(iniSection,iniValue,"");
delete ini;
}

6.以下代码支持加载后对内容进行排序，到实际存储不变:
void __fastcall TForm1::btnSortLoadClick(TObject *Sender)
{
TStringList *sl=new TStringList;
TIniFile *ini=new TIniFile(ExtractFilePath(Application->ExeName)+iniFile);
sl->CommaText=ini->ReadString(iniSection,iniValue,"");
sl->Sort();
Memo1->Lines=sl;
delete ini;
delete sl;
}