DELPHI的tstrings问题
varss:tstrings;
j:integer;
s:string;
begin
ss:=tstringlist.create;
\\ss给了一堆值
s:='aa';
for j:= 0 to ss.conut -1 do
if s=ss.strings[j] then
showmessage('aa')
else
showmessage('bb');
怎么对比的啊，为什么都是BB，ss里面有'aa'这个字符串啊
当前位置：编程学习 > Delphi >>
ss:tstrings;
j:integer;
s:string;
begin
ss:=tstringlist.create;
\\ss给了一堆值
s:='aa';
for j:= 0 to ss.conut -1 do
if s=ss.strings[j] then
showmessage('aa')
else
showmessage('bb');
怎么对比的啊，为什么都是BB，ss里面有'aa'这个字符串啊
ss:tstrings;
j:integer;
s:string;
begin
ss:=tstringlist.create;
\\ss给了一堆值
s:='aa';
for j:= 0 to ss.conut -1 do
if s=ss.strings[j] then
showmessage('aa')
else
showmessage('bb');
怎么对比的啊，为什么都是BB，ss里面有'aa'这个字符串啊
答案：我刚试了，代码是没错的。产生问题的原因，肯定是你给ss赋值的过程中，存在的值与s的值不完全相同，看看是不是有 空格 或者 其他什么符号 ；
var
ss: TStringList;
i: integer;
s: String;
begin
ss := TStringList.Create ;
ss.Add('aa');
ss.Add('bb');
ss.Add('cc');
ss.Add('dd');
ss.Add('ee');
ss.Add('ff');s:= 'aa';
for i:= 0 to ss.Count -1 do
begin
if s = ss[i] then
ShowMessage('Same')
else
ShowMessage('No');
end;
end;ss给的值是什么？
上一个：跪求delphi语句解释
下一个：难道要放弃delphi？
- 更多Delphi疑问解答：
- 用delphi做这个功能怎么做？
- 问delphi 中将Tquery控件查找到的记录数值写入某一edit中代码如何写？
- 有谁知道怎样在Delphi 7中显示代码的行数啊？或者有什么方法能够快速找到已知某一行数的代码啊！
- 关于delphi 操作EXcel的问题
- delphi ，sql，， 数据库 ，求助~~~~ 急~~~~~
- delphi变体记录问题
- delphi能实现反射吗？
- 谁会安装delphi 7 控件啊！会的话，请帮我在线安装一下? QQ785799795
- 在Delphi的Image控件上画移动的图片
- delphi 月份递增的循环查询
- 宝兰公司的开发工具delphi和c++builder现在的年代还流行吗？
- 我是沈阳做delphi开发的，想要集成短信功能到客户管理系统中，麻烦各位达人？
- 我是南昌做delphi开发的，想要集成短信功能到PMS中，分享下吧！
- delphi 取消窗体的最小化怎么弄
- 我是深圳做delphi开发的，想要集成短信功能到知识管理系统中，求达人指点！