Обработка хтмл кода

[gufon]

Хочу сделать прогу погоды, но не знаю за что зацепится в коде, наше код day_0 но он ажется ток у удного блока, может кто поможет

[kangreon]

А с какого сайта берется погода?

[gufon]

http://www.meteoprog.ua/ru/weather/Yenakievo/ блин вроде писал))))))))))

[kangreon]

Вот пример получения Даты и Температуры. Все остальное парсится по аналогии.

type
  TFormatP = record
    day: string;
    temp: array[0..3] of string;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHTTP;
  Page: string;
  k, l, m: Integer;

  day: string;

  pogoda: array of TFormatP;
  ms: TMemoryStream;
  sl: TStringList;
begin
  {
    Загрузка страницы с погодой.
    Использую TMemoryStream для того,
    чтобы кирилица не отображалась
    вопросиками.
  }
  http := TIdHTTP.Create;
  ms := TMemoryStream.Create;
  http.Get('http://www.meteoprog.ua/ru/weather/Yenakievo/',ms);
  ms.Position := 0;
  sl := TStringList.Create;
  sl.LoadFromStream(ms);
  ms.free;
  page := sl.Text;
  sl.Free;

  {
    Выполняется поиск погоды на все доступные дни
  }
  k := 0;
  while PosEx('<!-- begin w.block 1', Page, k) <> 0 do
  begin
    k := PosEx('<!-- begin w.block 1', Page, k);
    k := PosEx('px;">', Page, k) + 5;
    // Копируется день
    day := Copy(Page, k, PosEx('</', Page, k) - k);
    l := Length(pogoda);
    SetLength(pogoda, l + 1);
    pogoda[l].day := day;

    // Копирование температур
    for m := 0 to 3 do
    begin
      k := PosEx('wforecast-cell', Page, k);
      k := PosEx('>', Page, k) + 1;
      pogoda[l].temp[m] := Copy(Page, k, PosEx('&', Page, k) - k);
    end;
  end;

  {
    Вывод результата
  }
  l := Length(pogoda) - 1;
  for k := 0 to l do
  begin
    Memo1.Lines.Add('Погода на '+ UTF8Decode(pogoda[k].day));
    Memo1.Lines.Add(#9'Ночь: '+ pogoda[l].temp[0]);
    Memo1.Lines.Add(#9'Утро: '+ pogoda[l].temp[1]);
    Memo1.Lines.Add(#9'День: '+ pogoda[l].temp[2]);
    Memo1.Lines.Add(#9'Вечер: '+ pogoda[l].temp[3]);
  end;
end;