Баланс аккаунта

[SmoK777]

Как можно сделать чтобы прога показывала Баланс аккаунта? Вот html код:
<tr>
<td class="td">&nbsp;Баланс аккаунта:</td>
<td class="td" align="center">0.0553</td>
</tr>

[kangreon]

uses
  StrUtils;

procedure
var
  Balans: string;
  i: Integer;
  html: string;
begin
  // В переменной HTML нужная страница.
  i := PosEx('align="center"', html) + 15;
  Balans := Copy(html, i, PosEx('</', html, i) - i);
end;

[SmoK777]

i := PosEx тут ошибка. И возможно ли как то сделать через Indy? Я же на сайт через Indy авторизируюсь.

[Кольша]

procedure
var
  Balans: string;
  i: Integer;
  html: string;
begin
  // В переменной HTML нужная страница.
  i := Pos('align="center"', html) + 15;
  Balans := Copy(html, i, Pos('</', html) -2i);
end;

[SmoK777]

-2i) тут ошибка. убрал "i' и он вобще ничё не выводит.

[Кольша]

procedure
var
  Balans: string;
  i: Integer;
  html: string;
begin
  // В переменной HTML нужная страница.
  i := Pos('align="center">"', html) + length('align="center">');
  Balans := Copy(html, i, Pos('</td>', html) -length('</td>'));
end;

[SmoK777]

а куда писать адрес страницы?

[Кольша]

uses idhttp;
var
  Balans: string;
  i: Integer;
  html: string;
 http:Tidhttp;
begin
 http:Tidhttp.create(self);
html:=http.get('url');
http.free;
  i := Pos('align="center">"', html) + length('align="center">');
  Balans := Copy(html, i, Pos('</td>', html) -length('</td>'));
end;