使用CommaText

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