使用CommaText
下面请跟着图老师小编一起来了解下使用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;
}