Динамика курса валют - Проблема с выводом дат (Delphi)

[Max1097]

Всем привет!

Пишу программу для вывода динамики курса валют Доллара США. Все получилось, но выводит одну и ту же дату рядом со значениями. А нужно чтобы выводил рядом со значениями правильные даты.



Вот код программы:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    function GetKurs(FileName: string): TDateTime;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TCurrencyData = record
    Date: TDateTime;
    Value: Real;
  end;

var
  Form1: TForm1;
  CBR: array of TCurrencyData;
  Result1, Result2: TDateTime;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if FileExists('cbr.xml') then
    GetKurs('cbr.xml');
end;

function TForm1.GetKurs(FileName: string): TDateTime;
var
  XMLDocument: TXMLDocument;
  BufXMLNodeList: IXMLNodeList;
  i, k: integer;
begin
  try
    XMLDocument := TXMLDocument.Create(Form1);
    XMLDocument.Active := True;
    XMLDocument.LoadFromFile(FileName);
    if XMLDocument.ChildNodes[1].HasChildNodes then
      BufXMLNodeList := XMLDocument.ChildNodes[1].ChildNodes;
    Result1:= StrToDate(XMLDocument.ChildNodes[1].Attributes['DateRange1']);
    Result2:= StrToDate(XMLDocument.ChildNodes[1].Attributes['DateRange2']);
    for i := 0 to BufXMLNodeList.Count - 1 do
      if BufXMLNodeList[i].HasChildNodes then
        begin
        SetLength(CBR, Length(CBR) + 1);
        for k := 0 to BufXMLNodeList[i].ChildNodes.Count - 1 do
        begin
          if XMLDocument.DocumentElement.HasAttribute('Date')  then
            if XMLDocument.DocumentElement.HasAttribute('Date')  then
              CBR[Length(CBR) - 1].Date := StrToDate(BufXMLNodeList[i].ChildNodes['Record'].Attributes['Date']);
          if BufXMLNodeList[i].ChildNodes[k].NodeName = 'Value' then
            if BufXMLNodeList[i].ChildNodes[k].NodeValue <> Null then
              CBR[Length(CBR) - 1].Value := StrToFloat(BufXMLNodeList[i].ChildNodes[k].NodeValue);
        end;
        Memo1.Lines.Add(DateToStr(CBR[Length(CBR) - 1].Date) + ' - ' + FloatToStr(CBR[Length(CBR) - 1].Value));
      end;
    finally
  XMLDocument.SaveToFile('cbr.xml');
  XMLDocument.Active := False;
  XMLDocument.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetKurs('http://www.cbr.ru/scripts/XML_dynamic.asp?date_req1=' + (Edit1.Text) + '&date_req2=' + (Edit2.Text) + '&VAL_NM_RQ=R01235');
end;

end.

Подозреваю, что ошибка где-то здесь:

if XMLDocument.DocumentElement.HasAttribute('Date')  then
            if XMLDocument.DocumentElement.HasAttribute('Date')  then
              CBR[Length(CBR) - 1].Date := StrToDate(BufXMLNodeList[i].ChildNodes['Record'].Attributes['Date']);

Берет данные вот отсюда: http://www.cbr.ru/scripts/XML_dynami...L_NM_RQ=R01235

Буду очень рад если поможете.

[BDA]

function TForm1.GetKurs(FileName: string): TDateTime;
var
  XMLDocument: TXMLDocument;
  BufXMLNodeList: IXMLNodeList;
  i: integer;
begin
  Memo1.Lines.clear;
  try
    XMLDocument := TXMLDocument.Create(Form1);
    XMLDocument.Active := True;
    XMLDocument.LoadFromFile(FileName);
    if XMLDocument.ChildNodes[1].HasChildNodes then
      BufXMLNodeList := XMLDocument.ChildNodes[1].ChildNodes;
    Result1 := StrToDate(XMLDocument.ChildNodes[1].Attributes['DateRange1']);
    Result2 := StrToDate(XMLDocument.ChildNodes[1].Attributes['DateRange2']);
    SetLength(CBR, BufXMLNodeList.Count);
    for i := 0 to BufXMLNodeList.Count - 1 do
    begin
      if BufXMLNodeList[i].HasAttribute('Date') then
        CBR[i].Date := StrToDate(BufXMLNodeList[i].Attributes['Date']);
      if BufXMLNodeList[i].HasChildNodes and
        (BufXMLNodeList[i].ChildNodes['Value'].NodeValue <> Null) then
        CBR[i].Value := StrToFloat(BufXMLNodeList[i].ChildNodes['Value']
          .NodeValue);
      Memo1.Lines.Add(DateToStr(CBR[i].Date) + ' - ' +
        FloatToStr(CBR[i].Value));
    end;
  finally
    SetLength(CBR, 0);
    XMLDocument.SaveToFile('cbr.xml');
    XMLDocument.Active := False;
    XMLDocument.Free;
  end;
end;

[Max1097]

Сообщение от BDA

function TForm1.GetKurs(FileName: string): TDateTime;
var
  XMLDocument: TXMLDocument;
  BufXMLNodeList: IXMLNodeList;
  i: integer;
begin
  Memo1.Lines.clear;
  try
    XMLDocument := TXMLDocument.Create(Form1);
    XMLDocument.Active := True;
    XMLDocument.LoadFromFile(FileName);
    if XMLDocument.ChildNodes[1].HasChildNodes then
      BufXMLNodeList := XMLDocument.ChildNodes[1].ChildNodes;
    Result1 := StrToDate(XMLDocument.ChildNodes[1].Attributes['DateRange1']);
    Result2 := StrToDate(XMLDocument.ChildNodes[1].Attributes['DateRange2']);
    SetLength(CBR, BufXMLNodeList.Count);
    for i := 0 to BufXMLNodeList.Count - 1 do
    begin
      if BufXMLNodeList[i].HasAttribute('Date') then
        CBR[i].Date := StrToDate(BufXMLNodeList[i].Attributes['Date']);
      if BufXMLNodeList[i].HasChildNodes and
        (BufXMLNodeList[i].ChildNodes['Value'].NodeValue <> Null) then
        CBR[i].Value := StrToFloat(BufXMLNodeList[i].ChildNodes['Value']
          .NodeValue);
      Memo1.Lines.Add(DateToStr(CBR[i].Date) + ' - ' +
        FloatToStr(CBR[i].Value));
    end;
  finally
    SetLength(CBR, 0);
    XMLDocument.SaveToFile('cbr.xml');
    XMLDocument.Active := False;
    XMLDocument.Free;
  end;
end;

Большое спасибо. Программа теперь выводит даты правильно.