能把这段ASP的截取函数转为delphi里能用的函数吗?(50分)

能帮我把这段ASP的截取函数转为delphi里能用的函数吗?
Function Getstr(wstr,star,over,n)//wstr为要截取的字符串，star为开始标记，over为结束标记，n为出现的位置
dim midstr,cstar,cover,i,yn
midstr=wstr
yn=0
for i=1 to n
cstar=Newstring(midstr,star)
if cstar=len(midstr) then yn=1
midstr=mid(midstr,cstar+len(star))
next
if yn=0 then
cover=Newstring(midstr,over)
Getstr=mid(midstr,1,cover-1)
else
Getstr="捕捉失败"
end if
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function

你不会说给我加分就是还要回答这个问题吧.

不是，开个帖总应有点内容吧，你也应该表示一下吧，哈哈

其实我跟你说,字符串处理就是那么点东西.你不能依赖别人给你写出现成的,你知道这个问题我为什么不答,我不想答,我没那么多时间给你调试.字符串处理不难,就是烦,你学会用以下几个函数.你自已就可以写出来了.


Pos('|','a|b|c|'); //返回第一个 | 分隔符的位置
StringReplace('a|b|c|','|','!',[rfReplaceAll]); //将|替换成!
Copy('a|b|c|',1,3); 返回字符母串中的子串 "a|b"
Concat('a|b|c|','d|e|f'); 字符串合并a|b|c|d|e|f .
Length('a|b|c|'); 返回字符数,也就是字符的个数.