| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/13 15:23:37 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 例如：我有个字符串str,还有个Strlist:Tstringlist;这里存放里几个字符串， 现在我要把str加到Strlist中，但是str不能和Strlist中的字符串一样，请高手指点一二，谢谢了。 就是要比较完以后，如果str和Strlist中的字符串都不同的话，那么Strlist就加STr ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/13 15:28:05 | ||||
| 1楼： | if StringList.IndexOf(S) < 0 then StringList.Add(S); Call IndexOf to obtain the position of the first occurrence of the string S. IndexOf returns the 0-based index of the string. Thus, if S matches the first string in the list, IndexOf returns 0, if S is the second string, IndexOf returns 1, and so on. If the string is not in the string list, IndexOf returns -1. ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/13 15:40:20 | ||||
| 2楼： | 真是经典，太谢谢Sephil了，不过如果是字符串数组呢？你有好的方法吗？感谢再指教一下 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/13 15:42:29 | ||||
| 3楼： | for i := 0 to 10 do begin if StringList.indexof(s[i]) < 0 then StringList.add(s[i]); ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/13 15:45:13 | ||||
| 4楼： | 不好意思，你估计没有明白我的意思，我的意思是还是哪个字符str,但是要加到一个带有很多字符串的数组中，这里是不是还要判断是否比较完了的情况呢？请指教？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/13 15:54:21 | ||||
| 5楼： | 这样？？ function IndexOfArray(const Arr: array of String; const S: String): Integer; var I: Integer; begin Result := -1; for I := 0 to Length(Arr) - 1 do // 如果你要求大小写不敏感，将CompareStr换成CompareText即可 if CompareStr(Arr[I], S) = 0 then begin Result := I; Exit; end; end; if IndexOfArray(StrArray, Str) < 0 then ...... ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/13 16:11:19 | ||||
| 6楼： | 谢谢了，我怎么投你的票啊 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/13 18:06:08 | ||||
| 7楼： | 呵呵 没有投票功能吧？ ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 信息 |
| 登陆以后才能回复 |
