一个简单屏蔽傻逼的小程序，帮忙看上哪错了

一个简单屏蔽傻逼的小程序，帮忙看下哪错了？

var
 s:string;
 len:integer;
 i:integer;
begin
 s:=edit1.Text;
 len:=length(s);
 for i:=1 to len do
 begin
      if((s[i]='S')and([i+1]='B'))then
          showMessage('请文明发言!');
 end;

[解决办法]
for i:= 1 to len-1 do。。注意别溢出。。
[解决办法]
var
 s:string; 
 len:integer; 
 i:integer; 
begin
 s:=edit1.Text; 
 len:=length(s); 
 for i:=1 to len do
 begin
      if((s[i]='S')and(s[i+1]='B'))then
          showMessage('请文明发言!'); 
 end;
[解决办法]
这个屏蔽也太简单了吧！如果就这么简单，还可以这样写，不用循环
if POS('SB',UpperCase(Trim(Edit1.text))) > 0 then
  ShowMessage('请文明发言');

POS函数就是判断子串'SB'在不在Edit1.Text中。
UpperCase就是将所有字转化为大写。

查看更多 下一篇