小问题加小分，大问题加大分，大家快来看啊！

Question

一个字符一个字符找啊。
把'D...W'转换为pchar,然后循环用pos找，如果找到就把被检测的字符串清空。

Answer 1

var
  s:string;
  i:integer;
begin
  s := 'abc';
  for i:=1 to Length(s) do
  begin
    if(((s[i]>='D') and (s[i]<='W'))or((s[i]>='d') and (s[i]<='w'))) then
    begin
      s:='';
      break;
    end;
  end;我不知道你说的是不是这意思

Answer 2

var
  s:string;
  i:integer;
begin
  s := Edit1.Text;
  for i:=1 to Length(s) do
  begin
    if(((s[i]>='D') and (s[i]<='W'))or((s[i]>='d') and (s[i]<='w'))) then
    begin
      s:='';
      break;
    end;
  end;
  Label1.Caption := s;
end;
是这个意思吗？

Answer 3

var
  s:string;
  i:integer;
begin
  s := Edit1.Text;
  for i:=1 to Length(s) do
  begin
    if(((s[i]>='D') and (s[i]<='W'))or((s[i]>='d') and (s[i]<='w'))) then
    begin
      s:='';
      break;
    end;
  end;
  Label1.Caption := s;
end;
是这个意思吗？

Answer 4

should be "... or ... or ..."