delphi7写的个人笔记(模版功能已经实现)介绍三

      这几天都在上班没有把后续的写上,今天休息了,就把这个补上吧奋斗

----------------------------------------------------------------------------------------------------------------------------------------

     前面已经说了XML文件的解析,今天我要记录的是XML文件的创建和保存。前面介绍了说我这个笔记本主要的模块的分类:生活资料,学习资料,工作资料,相册记录,而其中的生活资料,学习资料,工作资料,这三个就目前来说,模块的结构和功能都是类似的,主要就是点击按钮,从xml文件中解析出数据结构列表到listview中,同时在listview这个控件所在的窗口实现对数据的增加,删除。解析XML文件就不再多说,这个只能大家在使用过了之后才有自己的体会。今天跟大家说的是XML文件的创建和保存。

在点击add data这个button的时候,会创建一个添加数据的窗口。(先跟大家说一下我这个程序中对XML文件的分类,在程序文件中创建了一个以学习为名字的文件夹,在这个文件夹中创建一个主xml文件,名称为xuexi.xml,这个文件中主要保存的结构为:标题名称,描述和创建日期,同时在xuexi这个文件夹中会有一个以标题命名的XML文件,而这个文件中所存储的结构为标题,内容,和日期,当我们添加一条数据的时候,在xuexi.xml这个文件中会添加一条数据同时在xuexi这个文件下会产生一个以标题命名的XML文件,删除的时候同样会删除这两个位置的数据)。

     那么先看一下增加数据怎么实现!

    

procedure TForm2.btn1Click(Sender: TObject);
var
  iFileHaddle:Integer;
  strDate:string;
  xn,nTitle,nMainInfomation,nDescription,nWriteTime:IXMLNode;
  lNodes:IXMLNodeList;
begin
     strDate:=FormatDateTime('c',Now);
     XMLDocument1.XML.Clear;
     XMLDocument1.XML.Add('<?xml version="1.0" encoding="GBK"?>');
     XMLDocument1.XML.Add('<xuexi>');
     XMLDocument1.XML.Add('<title>'+edt1.Text+'</title>');
     XMLDocument1.XML.Add('<mainInfomation>'+mmoMain.Text+'</mainInfomation>');
     XMLDocument1.XML.Add('<description>'+edt2.Text+'</description>');
     XMLDocument1.XML.Add('<writeTime>'+strDate+'</writeTime>');
     XMLDocument1.XML.Add('</xuexi>');
     XMLDocument1.Active:=True;
     //iFileHaddle:=FileOpen('xuexi\'+edt1.Text+'.xml',fmOpenRead);
     if (Trim(edt1.Text)<>'') and (Trim(edt2.Text)<>'') and  (Trim(mmoMain.Text)<>'') then
     begin
         XMLDocument1.SaveToFile('xuexi\'+edt1.Text+'.xml');
         //FileClose(iFileHaddle);
         ShowMessage('successfully!');
         Form2.Close;

     end
     else
     ShowMessage('please input the information without not null values');

//上面的是在xuexi这个文件夹中创建以title命名的文件

//下面是在xuexi.xml中增加相应的记录信息
     XMLDocument1.LoadFromFile('xuexi/xuexi.xml');
     XMLDocument1.Active:=True;
     xn:=XMLDocument1.DocumentElement.AddChild('records');
     xn.SetAttributeNS('id','',edt1.Text);

     nTitle:=xn.AddChild('title');
     nTitle.Text:=edt1.Text;


     nDescription:=xn.AddChild('description');
     nDescription.Text:=edt2.Text;

     nWriteTime:=xn.AddChild('writeTime');
     nWriteTime.Text:=strDate;
     XMLDocument1.SaveToFile('xuexi/xuexi.xml');
     XMLDocument1.Free;
    

end;

添加xml数据可以通过XMLDocumen.xml.add();将数据分段加入,而保存就适应xmldocument.saveToFile();

-------------------------------------------------------------------------------------------------------------------------------------

再看一下删除xuexi.xml文件中的节点。

procedure TForm3.btn2Click(Sender: TObject);
var
  i,j,countChecked:Integer;
  strArray:array of string;

  begin
       j:=0;

       begin
          for i:=0 to lv1.Items.Count-1 do
            begin
             if  lv1.Items[i].Checked then
               begin

                 j:=j+1;
                 SetLength(strArray,j);
                 strArray[j-1]:=lv1.Items[i].Caption;
                
               end;

            end;
           
          for i:=Low(strArray) to High(strArray) do
            begin

               ShowMessage('将要删除的数据的caption:'+'序号:'+IntToStr(i)+'  '+strArray[i]);

            end;
          deleteFromListView(strArray);
          deleteFromXML(strArray);
          //deleteFile(strArray);

       end ;
       if Length(strArray)=0 then
       begin

          ShowMessage('no data be checked!');
          
       end;


  end;

procedure TForm3.deleteFromListView(const strArray:array of string);
var
  i,j:Integer;
  begin
   // ShowMessage('do in deleteFromListView'+IntToStr(lv1.Items.Count-1)+' '+IntToStr(Length(strArray)-1));
    i:=0;
    j:=0;
    for i:=Low(strArray) to High(strArray) do
      begin
        for j:=0 to lv1.Items.Count-1 do
          begin
            if strArray[i]=lv1.Items[j].Caption then
             begin
               lv1.Items[j].Delete;
               break;
             end;

          end;

      end;
  end;

procedure TForm3.deleteFromXML(const strArray:array of string);
var
  nodeList:IXMLNodeList;
  selectNode:IXMLNode;
  i,j:Integer;
  selectedIndex:Integer;
  begin
    //ShowMessage('进入deleteFromXML');
    nodeList:=XMLDocument1.DocumentElement.ChildNodes;
    for  i := Low(strArray) to High(strArray) do
      begin

        for j := 0 to nodeList.Count-1 do
          begin
             if nodeList.Get(j).GetAttributeNS('id','') = strArray[i] then
               begin                             
                  nodeList.Delete(j);
                  XMLDocument1.SaveToFile('xuexi/xuexi.xml');
                  Break;
               end;

          end;

      end;
    
  end;
本例子中listview中增加了checked,所以我通过的是checked来确定要删除的节点信息。删除的步骤为先删除listview中显示的别checked的节点,通过保存节点的title到一个动态的一维数组中,在遍历整个xml文件查找匹配的title,来删除。

 

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值