[Niger]

Сообщение от 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);

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

Soryyyyy, но у меня не получилосья
За места нужного теста выводиться весь HTML код. Почему???