📄 k2.htm
字号:
<html>
<head>
<title>使用CommaText</title>
<meta http-equiv="目录类型" content="文本/html; 字符集=gb2312">
</head>
<body bgcolor="#FFFFFF">
<table width="100%" border="0" height="285">
<tr>
<td height="35">
<div align="center" class="p14"><font color="#000000">使用CommaText</font></div>
</td>
</tr>
<tr valign="top">
<td>
<p><font color="#000000">有时需要一个方便的方法存放一个StringList，它只有简单的一行。例如，当你想使用一个INI文件，如何向一个INI文件中写入一行呢，使用CommaText
就能完成这个工作。</font>
<p><font color="#000000"> 这里有个例子，功能是创建一个blah.ini文件，并写入一个如下形式的值:</font>
<p><font color="#000000">[My Section] <br>
Memo1=(你在Memo1中输入的文字)</font>
<p><font color="#000000">1.在Form1上有两个按钮btnLoad and btnSave和一个Memo1</font>
<p><font color="#000000">2.还要加入： <br>
#include <inifiles.hpp></font>
<p><font color="#000000">3.定义变量： <br>
const String iniFile="blah.ini",iniSection="My Section",iniValue="Memo1";</font>
<p><font color="#000000">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>
}</font>
<p><font color="#000000">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>
}</font>
<p><font color="#000000">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>
}</font> </p>
</td>
</tr>
</table>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -