有谁能解答出这题，小虾我感激不尽．．． ( 积分: 100 )

函数描述：给定网页字符串(strHtm)，从中定位到指定的表单元素(strTagName)，并替换指定表单元素的属性(strAttributeName)值(strAttributeValue)，lFlags内容先不用考虑，最后将结果返回到strHtml。
procedure setAttribute(
var strHtml: String;
const strTagName，
strAttributeName，
AttributeValue: String;
lFlags: Integer);

须以如下网页为操作对象：
http://www.21buy.com/XINXI/fabu.asp
替换如下表单元素中的value值为’http://www.renya.cn’：
<input type="text" name="t7" size="44" maxlength="30" value="http://">

编写要求：参照Borland编程规范，注意命名标准，要有必要的注释，同时要考虑执行速度。

以上函数要求用DELPHI编写

函数描述：给定网页字符串(strHtm)，从中定位到指定的表单元素(strTagName)，并替换指定表单元素的属性(strAttributeName)值(strAttributeValue)，lFlags内容先不用考虑，最后将结果返回到strHtml。
procedure setAttribute(
var strHtml: String;
const strTagName，
strAttributeName，
AttributeValue: String;
lFlags: Integer);

须以如下网页为操作对象：
http://www.21buy.com/XINXI/fabu.asp
替换如下表单元素中的value值为’http://www.renya.cn’：
<input type="text" name="t7" size="44" maxlength="30" value="http://">

编写要求：参照Borland编程规范，注意命名标准，要有必要的注释，同时要考虑执行速度。

以上函数要求用DELPHI编写

自己动手编吧。用字符串函数。先找strTagName的位置，然后找她前面的第一个“<”和后面的第一个“>”再这之间找你的strAttributeName值和strAttributeValue值，确定其位置，REPLACE即可。。

OldStr := '<input type="text" name="t7" size="44" maxlength="30" value="http://">';
NewStr := '<input type="text" name="t7" size="44" maxlength="30" value="http://"www.renya.cn>';
strHtml := StringReplace(strHtml, OldStr, NewStr, [rfReplaceAll]);