Работа через POST с html (помощь)

[key']

Погмогите разобратся
вот код:

=================================== ======================
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
begin
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Clear;
LoginInfo.Add('login=MyLogin');
LoginInfo.Add('password=MyPassword' );
IdHTTP1.Host:='avans.site.ru';
IdHTTP1.Port:=80;
IdHTTP1.Post('/billing/check.php',LoginInfo,Response);
Memo1.Clear;
Memo1.Lines.Add(Response.DataString );
Response.Free;
LoginInfo.Free;
end;
end.

=================================== ======================

результатом работы в Memo:
=======================
<?xml version="1.0" encoding="utf-8" ?>
<billing xmlns="http://avans.site.ru/billing/">
<name>MyName</name>
<lastUpdate iso="2007-08-08T17:50:03">08.08.2007 17:50:03</lastUpdate>
<nextUpdate iso="2007-08-08T17:55:03">08.08.2007 17:55:03</nextUpdate>
<money>2.00</money>
<moneyToday at="2007-08-08">14.28</moneyToday>
<!-- Generated in 0 seconds for MyIp -->
</billing>
========================

Вот вопрос как получить значение между <money>значение</money>?

[Квэнди]

strt:=memo1.text;
strt:=copy(strt,pos('<money',strt)+ 8,length(strt)-(pos('<money',strt)+7);
strt:=copy(strt,1,pos('</',strt)-1);

[key']

спасибо большое Квэнди

=================================== ====================
var
strt: string;

begin
strt:=memo1.text;
strt:=copy(strt,pos('<money',strt)+ 7,length(strt)-(pos('<money',strt)+7));
strt:=copy(strt,1,pos('</',strt)-1);
memo1.Clear;
memo1.Text:=strt;
end;
=================================== ====================
Помогло =)

[key']

Квэнди еще вопросик =)
Как с помощью:
=================================== ===================
strt:=copy(strt,pos('<money',strt)+ 7,length(strt)-(pos('<money',strt)+7));
strt:=copy(strt,1,pos('</',strt)-1);
=================================== ===================

устроить цикл?
т.е. у меня в memo находиться
=================================== ===================
текст <money>2.7</money>
<money>3.1</money> тескт
текст <money>4.5</money>
очень много повтроряющихся стрк..
=================================== ===================

и как сделать чтоб он проверил все строки на наличие <money>значение</money> и вывел все значения

Если использовать
=================================== ==================
i:=0
while i<200 do
strt:=memo1.lines.Strings[i];
strt:=copy(strt,pos('<money',strt)+ 7,length(strt)-(pos('<money',strt)+7));
strt:=copy(strt,1,pos('</',strt)-1);
memo1.Lines.Add(strt);
i:=i+1;
=================================== ==================
то получается чушь - во-первых задавать руками i:integer как-то неправильно и строка мемо может содержать тока кусок кода, который продолжается на втрой строке и в результате бред ..

[Andrei]

Сообщение от key'

Квэнди еще вопросик =)
Как с помощью:
=================================== ===================
strt:=copy(strt,pos('<money',strt)+ 7,length(strt)-(pos('<money',strt)+7));
strt:=copy(strt,1,pos('</',strt)-1);
=================================== ===================

устроить цикл?

Вместо функции Pos попробуй использовать PosEx она позволяет начать поиск подстроки с определенной позиции. То-есть выполняешь первый поиск с начала строки, запоминаешь конечное положение. Выполняешь следующий поиск от запомненного положения + 1 и т.д.

[S(p)@wN]

Для таких задач лучше всего использовать RegExp.. www.regexpstudio.com

function ExtractMoney(HTML: string; var Money: string): Boolean;
var
R: TRegExpr;
begin
Result:= False;
if Trim(HTML) <> '' then
begin
R:= TRegExpr.Create;
R.ModifierM:= False;
R.ModifierG:= False;
R.ModifierS:= False;
R.ModifierI:= False;
R.ModifierX:= False;
R.ModifierR:= False;
try
R.Expression:= '<money>(\d+\.\d+)</money>';
if R.Exec(HTML) then
begin
Result:= True;
repeat
Money:= Money + R.Match[1] + #13#10;
until not R.ExecNext;
end;
finally
R.Free;
end;
end;
end;

Результатом функции будет список нужных Вам значений, разделенными знаком перевода каретки aka #13