[mak-karpov]

Вот этот отрезок кода

Код:

1   s := IdHTTP1.Get('http://pda.gismeteo.ru/'+IntToStr(CityID)+'.htm');
2   S := Copy(S, Pos('<td bgcolor="#E0FFE0">Облачность<br>и осадки</td>', S), MAXINT);
3   s1 := Copy(S, Pos('alt="', S)+5, MAXINT);
4   s1 := Copy(s1, 0, Pos('"', s1) - 1); //Облачность
5   s2 := Copy(S, Pos(TempStr, S)+Length(TempStr), MaxInt);
6   s2 := Copy(s2, Pos('r>', s2), MAXINT);
7   s2 := Copy(S2, Pos('>', s2)+1, MAXINT);
8   s2 := Copy(s2, 0, Pos('</td>', s2)-1);

Теперь пошагово

1. Получаем всю страницу из инета.
2. Ищем текст "Облачность и осадки" и копируем текст страницы начиная с этого текста.
3.Ищем текст "alt="(подсказка) и опять копируем.
4.Ищем символ ' " ' и обрезаем страницу до этого символа, получаем текст типа "Гроза, облачно, и т.д."
5,6,7,8 - аналогично, но для температуры