16,747
社区成员




procedure TForm1.Button1Click(Sender: TObject);
begin
GegValues(Memo1.Text);
end;
procedure TForm1.GegValues(s: string);
var
reg:TRegExpr;
begin
reg := TRegExpr.Create;
reg.Expression := '(<meta|<META)(.*?)(name="|name='+#39+')(.*?)("|'+#39+')';
if reg.Exec(s) then
begin
repeat
ListBox1.Items.Add(reg.Match[4]);
until not reg.ExecNext;
end;
reg.Free;
end;