[NumLock]

выводит cloud за все date и hour:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  ComObj,
  Variants,
  msxml;

var
  XMLHttpRequest: IXMLHttpRequest;
  XMLDOMDocument: IXMLDOMDocument;
  DayList: IXMLDOMNodeList;
  DayElement: IXMLDOMElement;
  i: Integer;

begin
  OleInitialize(nil);
  XMLHttpRequest:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
  XMLHttpRequest.open('GET', 'http://xml.weather.co.ua/1.2/forecast/19?dayf=5&userid=yoursite_com', False, EmptyParam, EmptyParam);
  XMLHttpRequest.send(EmptyParam);
  if XMLHttpRequest.status=200 then
  begin
    XMLDOMDocument:=XMLHttpRequest.responseXML as IXMLDOMDocument;
    DayList:=XMLDOMDocument.getElementsByTagName('day');
    for i:=0 to DayList.length-1 do
    begin
      DayElement:=DayList.item[i] as IXMLDOMElement;
      if DayElement.getAttribute('date')<>Null then
        Writeln('date = '+DayElement.getAttribute('date')+' hour = '+DayElement.getAttribute('hour')+' cloud = '+DayElement.getElementsByTagName('cloud').item[0].text);
        if (DayElement.getAttribute('date')='2011-11-29') and (DayElement.getAttribute('hour')='21') then Writeln('^^ - this');
    end;
  end;
  Writeln('Press any key...');
  Readln;
end.