[arman2001]

Нужно вставить в программу информацию из этого HTML-кода:
<span class="title">Счет:</span>278609 <br /
<span class="title">Тип счета:</span>Учебный <br />
<span class="title">Депозит:</span> 93.16

в memo или Label.

Чтобы выглядело так:
Счет: 278609
Тип счета: Учебный
Депозит: 93.16

Как это сделать не используя XML?

Подскажите код, для TWebBrowser (D7).

[friz]

код подсказать не смогу, но алгоритм такой:
1)открываешь страницу как txt
2)удаляешь из нее все что содержиться между "<" ">"
3)считываешь информацию.

[ART]

Код:

function MyPos(SubStr, Str:string; i:integer; dir:byte):integer;
var
j:integer;
begin
 case dir of
  0: for j := i to Length(Str) - Length(SubStr) + 1 do
      if Copy(Str, j, length(SubStr)) = SubStr then begin
       Result := j;
       exit;
      end;
  1: for j := i - length(SubStr) downto 1 do
      if Copy(Str, j, length(SubStr)) = SubStr then begin
       Result := j;
       exit;
      end;
 end;
Result := 0;
end;

function RemoveHTMLTags(text: string): string;
var
 i1, i2: integer;
begin
 i1 := 0;
 i2 := 0;
 repeat
  i1 := MyPos('<', text, 1, 0);
  if i1 = 0 then break;
  i2 := MyPos('>', text, i1, 0);
  if i2 = 0 then break;
  Delete(text,  i1,  i2 - i1 + 1);
  text := trim(text);
 until false;
Result := text;
end;