使用CommaText存放StringList

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