先进入编辑模式 var Range: IHTMLTxtRange; begin Range := ((webbrowser.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange; Range.collapse(False); Range.pasteHTML('<ahref="http://www.sohu.com">我的个人网站 </a>'); end;不进入编辑模式应该也是可以的,但麻烦,300分我也懒得去写:)同意mwy654321 分太少了。 本来就是游戏,最重要的是自己解决了问题。
30分太少。
var Range: IHTMLTxtRange;
begin
Range := ((webbrowser.Document as IHTMLDocument2).body as
IHTMLBodyElement).createTextRange;
Range.collapse(False);
Range.pasteHTML('<ahref="http://www.sohu.com">我的个人网站 </a>');
end;不进入编辑模式应该也是可以的,但麻烦,300分我也懒得去写:)同意mwy654321
分太少了。
本来就是游戏,最重要的是自己解决了问题。
Memo1.Lines.Clear;
Memo1.Lines.LoadFromFile('1.html');
Memo1.SelLength := Length(Memo1.Text);
Memo1.Lines.Append('<a href="http://www.sohu.com">我的个人网站 </a>');
Memo1.Lines.SaveToFile('2.html');
==========================================================================
严重鄙视mwy654321,只知道要分的人,分难道对你就那么重要,没有分你就不肯帮助别人了吗?感谢除mwy654321之外的所有热心的人!感谢你们的帮助!
这当然不重要,因为你的水平离使用DELPHI还相差太远。
重要的是,你永远都不可能达到能够使用DELPHI的水平。
这与你的人品有关。