自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

-+

上一步保存

高级图形用户界面

思考应该思考的问题

光明山人 CSDN认证博客专家 CSDN认证企业博客

码龄25年

9: 原创

57万+: 周排名

129万+: 总排名

2万+: 访问

: 等级

390: 积分

5: 粉丝

0: 获赞

4: 评论

1: 收藏

私信

关注

热门文章

分类专栏

BDN-cn
C++
Delphi 2篇
Java
时事 2篇
杂感 2篇

最新评论

Delphi实验：在串中查找第i个子串的位置及效率评测
549: 谢谢
Delphi实验：在串中查找第i个子串的位置及效率评测
光明山人: 请： <br>function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer; <br>var <br> I,X: Integer; <br> Len, LenSubStr: Integer; <br>begin <br> if Offset = 1 then <br> Result := Pos(SubStr, S) <br> else <br> begin <br> I := Offset; <br> LenSubStr := Length(SubStr); <br> Len := Length(S) - LenSubStr + 1; <br> while I <= Len do <br> begin <br> if S[I] = SubStr[1] then <br> begin <br> X := 1; <br> while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do <br> Inc(X); <br> if (X = LenSubStr) then <br> begin <br> Result := I; <br> exit; <br> end; <br> end; <br> Inc(I); <br> end; <br> Result := 0; <br> end; <br>end; <br>
回复：delphi的接口的意义是不是跟C++和Java的不同呢？
fellow: 我的进一步研究： <br>http://blog.csdn.net/fellow99/archive/2005/01/05/240118.aspx
Delphi实验：在串中查找第i个子串的位置及效率评测
549: d7的确提供了很多优秀的过程 <br>以前和修罗讨论的那个问题也用到了PosEx <br>我用d6,所以没有PosEx的代码,能否贴上来分析一下? <br> <br>:P

最新文章

杂感

关注

关注数：文章数：2 文章阅读量：3906 文章收藏量：0

作者: 光明山人

这个作者很懒，什么都没留下…

展开