在delphi中如何解决空格的问题。。。。烦死 了。。。。

Posted 2021-01-20 jijm123

我每次从数据库里面取数据出来和Edit里面的进行比较的时候总是会受到
空格的困扰。。。老是干扰我。。。
如果我用trim 所有都做去掉所有的空格那么这样就非常麻烦又繁琐。。
有没有什么方法可以忽略空格的。。。

还有就是我如果用Edit1.SetFocus对 其进行选中。。那么我如果不把字符串全部删除呢么就会有限定：

我能输入的字符+原有的空格=MaxLength（我先设定的值）

这又如何解决。。。

---

呵呵 问题我已经解决了。。谢谢两位。。。呵呵 我做如下处理。。

if (Trim(FieldByName(‘AdminID‘).AsString)<>‘‘) and
        (Trim(FieldByName(‘AdminID‘).AsString)=Trim(Edit1.Text)) then begin
      Label10.Caption:=‘您要添加的管理员ID已存在‘;
      <span style="color: #FF0000;">Edit1.Text:=StringReplace(Edit1.Text,#32,‘‘,[rfReplaceAll]);</span>
      Edit1.SetFocus;
      Exit;
 end;