使用CommaText

【 tulaoshi.com - 编程语言 】

　　有时需要一个方便的方法存放一个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;
　　}