ValuListEditor用法.docVIP

设置ValueListEditor1的属性： 1、点击Strings属性的按钮，出现value list editor框，点击code editor按钮，这是设置ValueListEditor1能存放的行数的。一直按enter键直到100行，说明该ValueListEditor1能存放100行数据。保存一下。 2、点击TitleCaptions属性的按钮，出现string list editor框，这是改变显示项名称的，我们将key值改变为“时间“，将value值改变为“待办事项“，点击ok保存。 3、点击Options属性，将其展开。在这里我们要设置的有两个数性：goEditing属性，这是设置“待办事项”栏可不可编辑的，因为我们只需显示数据，所以设置为false。goDrawFocusSelected属性，这是设置能否获得焦点即能否用鼠标选中某一行的，在此设置为true。 我们要从ini文件中读取数据，先建一个空的ini文件，命名为“MYINI.INI”。 好的，先到这里，准备工作已经完成 ?双击“删除”按钮进入响应事件的编写。? ??????整个“删除”按钮的代码如下，水平有限，这里我就不用仔细解释了。 ?void?__fastcall?TForm2::Button1Click(TObject?*Sender)? {? ??int?row;???//记录当前焦点的行号???//获得焦点? ??ValueListEditor1-EditorMode?=?true;???ValueListEditor1-SetFocus();???//获得焦点行号? ??row=ValueListEditor1-Row????//删除该行? ??ValueListEditor1-DeleteRow(row);? ??//自定义函数，用来将ini文件的对应的数据项的值设置为空即删除该项的数据，并依次将数据前移?? ?update(row);? }? 在上面button1响应函数的前面添加update函数如下： ?void?update(int?drow) {??????AnsiString?n1;??????int?i,j,j1,num;? ?????//下面是对ini文件的操作??????TIniFile?*?regKey;? ?????AnsiString?ExePath?=?ExtractFilePath(ParamStr(0));?????? regKey?=?new?TIniFile?(?ExePath?+?MYINI.INI);??????//读?TB?的value值，是用来保存文件有多少数据项的????? ?n1=regKey-ReadString?(?TB,?value,?);??????num=?StrToInt(n1);??? //将string转换为int型? ?????//下面的循环是读取ini文件中从第drow个数据项依次付给前一个，drow是所删除的数据项所在的位置? ?????for(i=drow-1;inum;i++) { AnsiString?j=AnsiString(i);?????????? AnsiString?j1=AnsiString(i+1);? ?regKey-WriteString?(?ComboBox+j,?datetime?,regKey-ReadString?(?ComboBox+j1,??datetime,?));? ?????????regKey-WriteString?(?ComboBox+j,?plan?,regKey-ReadString?(?ComboBox+j1,??plan,?));????? ?}? ?????//数据项个数减1? ?????regKey-WriteString?(?TB,?value?,?num-1);??????//释放ini文件对象?????? delete?regKey;? } 双击form，编写在构建form时的响应事件，这里主要就是完成从ini文件向ValueListEditor1读入数据的功能。全部代码如下：? void?__fastcall?TForm1::FormCreate(TObject?*Sender)? {? ??AnsiString?date,thing,n1;???int?i,n2;???//ini文件的操作?? ?TIniFile?*?regKey;? ??AnsiString?ExePath?=?ExtractFilePath(ParamStr(0));??? regKey?=?new?TIniFile?(?ExePath?+?MYINI.INI);??? n1