Найти форму по action

[myxaxa41]

Подскажите, пожалуйста, как найти форму по значению action. По имени и номеру знаю, а по action нет

[mihali4]

Вы сами-то поняли, что спрашиваете ?
Посмотрите в хэлпе, что такое action...

[myxaxa41]

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

Вы сами-то поняли, что спрашиваете ?
Посмотрите в хэлпе, что такое action...

Я имел ввиду есть несколько форм на странице и мне надо обработать, например ту, у которой <form action="search.php">. Не подскажите как?

[mihali4]

Вы можете осуществить поиск по слову "парсинг" в этом подразделе.

[myxaxa41]

Нашел такой код

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    lb: TLabeledEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Execute;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
x:textfile;
s:string;
i:integer;
finde:boolean;
begin
label1.Caption:=opendialog1.FileName;
finde:=false;
try
begin
assignfile(x,opendialog1.FileName);
reset(x);
while not eof(x) do
begin
readln(x,s);
if (pos('<form',s)<>0) then finde:=true;
if finde then memo1.Lines.Add(s);
if (pos('</form>',s)<>0)then finde:=false;
end;
closefile(x);
end;
except
begin
showmessage('Ошибка');
 end;
 end;
//```````````````````````````````````````````````````````````````````\\
lb.Text:=copy(memo1.Text,pos('action',memo1.Text)+8,pos('method',memo1.Text)-pos('action',memo1.Text)-8-2);
 end;
end.

Форму создал, запускаю, кнопки никак на клики не реагируют, ошибок никаких не выдает. Может кто подскажет в чем проблема.