Распарсить строку

[bulldog5293]

получаю страницу так

IdHTTP1.get(FURL);

но на ней находится ифа которую не пойму как распарсить на три значения

PHP код:

<form action="" method="post"> 
3+4 = 
<input type="text" name="captcha2" style="width: 50px;" value=""> 


даже не знаю за что тут заципится что бы получить a:=3, b:=+, c:=4

[russian-stalker]

На делфи давно не писал, но примерно так:

	delete(s, pos('captcha2',s), length(s)-pos('captcha2',s)+1);
	for i:=length(s) downto 1 do
		if (s[i]='>') then
				break;
	delete(s, 1, i);
	delete(s, pos('<',s), length(s)-pos('<',s)+1);
	s:=StringReplace(s, #10, '', [rfReplaceAll, rfIgnoreCase]);
	s:=StringReplace(s, ' ', '', [rfReplaceAll, rfIgnoreCase]);

[bulldog5293]

спс, работает, но мне нада что бы a:=3, b:=+, c:=4, что бы дальше использовать функции сложения, просто вместо + может и -,*,/ быть

[russian-stalker]

var
	a,b,s:string;
	i:integer;
	c:char;
	step:byte;
begin
	s:='5533/3354=';
	step:=0;
	a:='';
	b:='';
	for i:=1 to length(s) do
	begin
		if step=0 then
			if s[i] in ['0'..'9'] then
			a:=a+s[i] else
			step:=1;
		if step=2 then
			if s[i] in ['0'..'9'] then
			b:=b+s[i] else
			break;
		if step=1 then
		begin
			c := s[i];
			step:=2;
		end;
	end;
//StrToInt(a), StrToInt(b), c
end.

[bulldog5293]

так у меня только s и показывается

procedure TForm1.Button1Click(Sender: TObject);
var
	a,b,s:string;
	i:integer;
	c:char;
	step:byte;
begin
s:=IdHTTP1.get(FURL);
delete(s, pos('captcha2',s), length(s)-pos('captcha2',s)+1);
	for i:=length(s) downto 1 do
		if (s[i]='>') then
				break;
	delete(s, 1, i);
	delete(s, pos('<',s), length(s)-pos('<',s)+1);
	s:=StringReplace(s, #10, '', [rfReplaceAll, rfIgnoreCase]);
  step:=0;
	a:='';
	b:='';
	for i:=1 to length(s) do
	begin
		if step=0 then
			if s[i] in ['0'..'9'] then
			a:=a+s[i] else
			step:=1;
		if step=2 then
			if s[i] in ['0'..'9'] then
			b:=b+s[i] else
			break;
		if step=1 then
		begin
			c := s[i];
			step:=2;
      showmessage(s);
		end;
	end;
end;

[russian-stalker]

Опустите Showmessage на два end'а ниже.

[bulldog5293]

не, ты меня не понял

procedure TForm1.Button1Click(Sender: TObject);
var
	a,b,s:string;
	i:integer;
	c:char;
	step:byte;
begin
s:=IdHTTP1.get('FURL');
delete(s, pos('captcha2',s), length(s)-pos('captcha2',s)+1);
	for i:=length(s) downto 1 do
		if (s[i]='>') then
				break;
	delete(s, 1, i);
	delete(s, pos('<',s), length(s)-pos('<',s)+1);
	s:=StringReplace(s, ' ', '', [rfReplaceAll, rfIgnoreCase]);
  step:=2;
	for i:=2 to length(s) do
		begin
			a := s[i];
			step:=2;
			showmessage(a);
edit1.text:= s[i];
		end;
	end;

так у меня выводится цифра, знак, цифра, равно, пробел. А как сделать без пробела

[bulldog5293]

Вопрос снят, проблему решил