delphi 中的fctreeView 所有节点有checkBox。 checkBox被选中的保存, 没选中的不保存! 而且下次在某个地方还要以fcTreeView的形式显示给用户!怎么保存呢!请高人指教!
解决方案 »
- 求 fastreport 例子
- com中创建对象的问题-----------急
- 用程序怎样读取打印机驱动程序名称及版本?
- 常量定义问题const str=$01;是什么类型的常量啊?
- 奇怪的DLL调用问题,在线等~~~~~
- DBLookupComboBox赋值问题
- 做bde软件的安装程序,一定要用installshild express for delphi 吗?
- SOS!,为吓米 我的delphi在运行Excel的时候,出现“命令不可用,应用程序许可已过期”!!
- 一段产生水纹、火焰的VC特效源代码,谁能帮改成C++ Builder或Delphi源代码!!100分相送!!!
- 救菜鸟于水火第二问之动动小手
- 关于线程调用第三方SDK取返回值的问题
- SQL server 2005 突然断电 造成数据库损坏怎么修复啊? 急!!
var
I:Integer;
Node : TfcTreeNode;
begin
for I := 0 to fcTreeView1.Items.Count -1 do
begin
if fcTreeView1.Items.Item[I].Checked then
begin
fcTreeView1.Selected := fcTreeView1.Items.Item[I];
Node := fcTreeView1.Selected;
Node.Delete;
end;
end;
fcTreeView1.SaveToFile('G:\ceshi.txt');
end;这段代码有什么问题吗?为什么报错呢!
删除时,fcTreeView1.Items.Count-1,而I+1,这样可漏掉切点。使用:
Top:=0;
repeat
if fcTreeView1.Items.Item[Top].Checked
then fcTreeView1.Items.Item[I].Delete
else Top:=Top+1;
until Top>=fcTreeView1.Items.Count;
fcTreeView1.SaveToFile('G:\ceshi.txt');
Top:=0;
repeat
if fcTreeView1.Items.Item[Top].Checked
then fcTreeView1.Items.Item[Top].Delete
else Top:=Top+1;
until Top>=fcTreeView1.Items.Count;
fcTreeView1.SaveToFile('G:\ceshi.txt');