📄 56.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>使用CommaText</title>
</head>
<div><center>
<table border="0" width="640">
<tr><td align="center"><b>使用CommaText</b></td></tr>
<tr><td align="center"><font color="#CC9933"></font></td></tr>
<tr><td> 有时需要一个方便的方法存放一个StringList,它只有简单的一行。例如,当你想使用一个INI文件,如何向一个INI文件中写入一行呢,使用CommaText 就能完成这个工作。 <br><br> 这里有个例子,功能是创建一个blah.ini文件,并写入一个如下形式的值: <br><br>[My Section] <br>Memo1=(你在Memo1中输入的文字) <br><br>1.在Form1上有两个按钮btnLoad and btnSave和一个Memo1 <br><br>2.还要加入: <br>#include <inifiles.hpp> <br><br>3.定义变量: <br>const String iniFile="blah.ini",iniSection="My Section",iniValue="Memo1"; <br><br>4.保存按钮代码: <br>void __fastcall TForm1::btnSaveClick(TObject *Sender) <br>{ <br> TIniFile *ini=new IniFile(ExtractFilePath(Application->ExeName)+iniFile); <br> ini->WriteString(iniSection,iniValue,Memo1->Lines->CommaText); <br> delete ini; <br>} <br><br>5.装载按钮代码: <br>void __fastcall TForm1::btnLoadClick(TObject *Sender) <br>{ <br> TIniFile *ini=new TIniFile(ExtractFilePath(Application->ExeName)+iniFile); <br> Memo1->Lines->CommaText=ini->ReadString(iniSection,iniValue,""); <br> delete ini; <br>} <br><br>6.以下代码支持加载后对内容进行排序,到实际存储不变: <br>void __fastcall TForm1::btnSortLoadClick(TObject *Sender) <br>{ <br> TStringList *sl=new TStringList; <br> TIniFile *ini=new TIniFile(ExtractFilePath(Application->ExeName)+iniFile); <br> sl->CommaText=ini->ReadString(iniSection,iniValue,""); <br> sl->Sort(); <br> Memo1->Lines=sl; <br> delete ini; <br> delete sl; <br>}</td></tr>
</table></center></div>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -