Проблема с парсинга.

[foxes]

Помогите с парсить курс валют

 
 <tr>
                    <td width="26%">EUR</td>
                    <td width="9%" style="text-align:right;">10.52</td>
                    <td width="25%" style="text-align:right;">10.82</td>
                </tr>
                <tr>
                    <td width="26%">USD</td>
                    <td width="9%" style="text-align:right;">8.150</td>
                    <td width="25%" style="text-align:right;">8.180</td>
                </tr>
                <tr>
                    <td width="26%">RUB</td>
                    <td width="9%" style="text-align:right;">0.260</td>
                    <td width="25%" style="text-align:right;">0.270</td>
                </tr>

Так не могу

tmp:=IdHttp1.Get('http://privatbank.ua/');
EUR:=copy(tmp,pos('<td width="26%">EUR</td>',tmp)+16,pos('</td>',tmp)-pos('<td width="26%">EUR</td>',tmp)-16);
Edit1.Text:=EUR;

[BDA]

uses StrUtils;
...
var
  s, EUR: string;
  p1, p2: integer;
begin
  s := IdHTTP1.Get('http://privatbank.ua/');
  p1 := pos('EUR</td>', s);
  if p1 <> 0 then
  begin
    p1 := posex(';">', s, p1);
    if p1 <> 0 then
    begin
      p2 := posex('</td>', s, p1);
      if p2 <> 0 then
      begin
        EUR := copy(s, p1 + 3, p2 - p1 - 3);
        Edit1.Text := EUR;
      end;
    end;
  end;
end;

Или

uses StrUtils;
...
function parse(s, exchange: string; var buy, sell: string): boolean;
var
  p1, p2: integer;
begin
  result := false;
  p1 := pos(exchange + '</td>', s);
  if p1 <> 0 then
  begin
    p1 := posex(';">', s, p1);
    if p1 <> 0 then
    begin
      p2 := posex('</td>', s, p1);
      if p2 <> 0 then
      begin
        buy := copy(s, p1 + 3, p2 - p1 - 3);
        p1 := posex(';">', s, p2);
        if p1 <> 0 then
        begin
          p2 := posex('</td>', s, p1);
          if p2 <> 0 then
          begin
            sell := copy(s, p1 + 3, p2 - p1 - 3);
            result := true;
          end;
        end;
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  b, s: string;
begin
  if parse(IdHTTP1.Get('http://privatbank.ua/'), 'USD', b, s) then
  begin
    Edit1.Text := b;
    Edit2.Text := s;
  end;
end;

Или даже

uses StrUtils;
...
function parse(s, exchange: string; buy, sell: TEdit): boolean;
var
  p1, p2: integer;
begin
  result := false;
  p1 := pos(exchange + '</td>', s);
  if p1 <> 0 then
  begin
    p1 := posex(';">', s, p1);
    if p1 <> 0 then
    begin
      p2 := posex('</td>', s, p1);
      if p2 <> 0 then
      begin
        buy.Text := copy(s, p1 + 3, p2 - p1 - 3);
        p1 := posex(';">', s, p2);
        if p1 <> 0 then
        begin
          p2 := posex('</td>', s, p1);
          if p2 <> 0 then
          begin
            sell.Text := copy(s, p1 + 3, p2 - p1 - 3);
            result := true;
          end;
        end;
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  parse(IdHTTP1.Get('http://privatbank.ua/'), 'USD', Edit1, Edit2);
end;

Еще можно написать регулярное выражение

[foxes]

Большое Вам спасибо!

[foxes]

Сообщение от BDA

procedure TForm1.Button1Click(Sender: TObject);
begin
  parse(IdHTTP1.Get('http://privatbank.ua/'), 'USD', Edit1, Edit2);
end;

Еще можно написать регулярное выражение

parse(IdHTTP1.Get('http://privatbank.ua/'), 'USD', Edit1, Edit2);
Все я понял
Большое Вам спасибо!