这个函数要如何写? ( 积分: 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.csdn.net’：
<input type="text" name="t7" size="44" maxlength="30" value="http://">

编写要求：以上函数要求用DELPHI编写。要求有网页及具体代码文件(pas及dfm格式文件)
这个要怎么实现,谢谢

函数描述：给定网页字符串(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.csdn.net’：
<input type="text" name="t7" size="44" maxlength="30" value="http://">

编写要求：以上函数要求用DELPHI编写。要求有网页及具体代码文件(pas及dfm格式文件)
这个要怎么实现,谢谢

=====>编写要求：以上函数要求用DELPHI编写。要求有网页及具体代码文件(pas及dfm格式文件)
呵呵！像面试题

免試啊