使用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;
}