var 
S: integer; 
The begin 
For s:=0 to form1. Webbrowser1. OleObject. Document. The getElementsByTagName (' a '). The length of 1 
Do 
The begin 
If form1. Webbrowser1. OleObject. Document. GetElementsByTagName (' a '). The item (s). The target='_blank' 
//
Then 
The begin 
Form1. Memo1. Lines. The Clear; 
Form1. Memo1. Lines. The Add (form1. Webbrowser1. OleObject. Document. GetElementsByTagName (' a '). The item (s). The href); 

end; 

the code inside the delphi7 run normally, in delphi2010 don't respond,,,,,,,,

CodePudding user response:

Artificial placed at the top,,,,,,,,

CodePudding user response:

Pray god to help me see ah,