fm_addcrow.pas

ReadWorld RSS 聚合新闻 阅读器 XML 欢迎使用ReadWorldRSS阅读器 1 这个程序更改了我上回发布的《聚合新闻（RSS）阅读器》的一些错误。 2 新增了频道列表的拖放

unit FM_ADDCRow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls,XMLDoc,XMLIntf;

type
  TFMADDCRow = class(TForm)
    Image1: TImage;
    Label3: TLabel;
    Edit2: TEdit;
    Bevel2: TBevel;
    Button5: TButton;
    Button4: TButton;
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMADDCRow: TFMADDCRow;

implementation
uses
  FM_RSS;
{$R *.dfm}

procedure TFMADDCRow.Button5Click(Sender: TObject);
var
 Item,ItemsParent:TTreeNode;
 XMLDoc1:TXMLDocument;
 XMLNode:IXMLNode;
 SList:TStringList;
 k:integer;
begin
 if (Edit2.Text<>'') then
  begin
   XMLDoc1:=TXMLDocument.Create(Self);
   XMLDoc1.FileName:=ExtractFilePath(Application.ExeName)+'RSSChannel.xml';
   XMLDoc1.Active:=True;
   XMLNode:=XMLDoc1.Node.ChildNodes.Nodes[0];
   if FMRSS.TreeView1.Selected.Parent<>NIL THEN
    BEGIN
     SList:=TStringList.Create;
     SList.Clear;
     ItemsParent:=FMRSS.TreeView1.Selected.Parent;
     k:=FMRSS.TreeView1.Selected.Index;
     while ItemsParent<>nil do
      begin
       SList.Add(inttostr(ItemsParent.index));
       ItemsParent:=ItemsParent.Parent;
      end;
     SList.Delete(SList.Count-1);
     while SList.Text <>'' do
      begin
       XMLNode:=XMLNode.ChildNodes.Nodes[strtoint(SList.Strings[SList.Count-1])];
       SList.Delete(SList.Count-1);
      end;
     XMLNode.ChildNodes.Nodes[k].AddChild('ChannelName').Attributes['Name']:=Edit2.Text;
     Item:=FMRSS.TreeView1.Items.AddChild(FMRSS.TreeView1.Selected,Edit2.Text);
     Item.SelectedIndex:=0;
     Item.ImageIndex:=0;
   end
    else
     begin
      Item:=FMRSS.TreeView1.Items.AddChild(FMRSS.TreeView1.Selected,Edit2.Text);
      Item.SelectedIndex:=0;
      Item.ImageIndex:=0;
      XMLDoc1.Node.ChildNodes.Nodes[0].AddChild('ChannelName').Attributes['Name']:=Edit2.Text;
     end;
  XMLDOC1.SaveToFile(ExtractFilePath(Application.ExeName)+'RSSChannel.xml');
  XMLDoc1.Free;
  Close;
  end;
end;
procedure TFMADDCRow.Button4Click(Sender: TObject);
begin
 Close;
end;

end.