fm_newname.pas

realworld source code

unit FM_NewName;

interface

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

type
  TFMNewName = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMNewName: TFMNewName;

implementation
uses
 FM_RSS;
{$R *.dfm}

procedure TFMNewName.Button1Click(Sender: TObject);
var
  ItemsParent:TTreeNode;
  XMLNode:IXMLNode;
  j,I:integer;
  SList:TStringList;
  XMLDocu1:TXMLDocument;
begin
 j:=0;
 I:=0;
 SList:=TStringList.Create;
 SList.Clear;
 ItemsParent:=FMRSS.RzTreeView2.Selected.Parent;
 j:=FMRSS.RzTreeView2.Selected.Index;
 while ItemsParent<>nil do
  begin
   SList.Add(inttostr(ItemsParent.index));
   ItemsParent:=ItemsParent.Parent;
  end;
 SList.Delete(SList.Count-1);
 XMLDocu1:=TXMLDocument.Create(self);
 XMLDocu1.FileName:=ExtractFilePath(Application.ExeName)+'Favorite.xml';
 XMLDocu1.Active:=True;
 XMLNode:=XMLDocu1.Node.ChildNodes.Nodes[0];
 if SList.Text<>'' then
  begin
   while SList.Text <>'' do
    begin
     XMLNode:=XMLNode.ChildNodes.Nodes[strtoint(SList.Strings[SList.Count-1])];
     SList.Delete(SList.Count-1);
    end;
   XMLNode.ChildNodes.Nodes[j].Attributes['Name']:=Edit1.Text;
  end
 else
  XMLNode.ChildNodes.Nodes[j].Attributes['Name']:=Edit1.Text;
 XMLDocu1.SaveToFile(ExtractFilePath(Application.ExeName)+'Favorite.xml');
 FMRSS.RzTreeView2.Selected.Text:=Edit1.Text;
 XMLDocu1.Free;
 Close;
end;
procedure TFMNewName.Button2Click(Sender: TObject);
begin
 Close;
end;

end.