怎样去除edit前面和后面的空格,trim只是去除字符串,edit好像不行?用delphi7(20)

  • 主题发起人 主题发起人 rgn
  • 开始时间 开始时间
R

rgn

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样去除edit前面和后面的空格,trim只是去除字符串,edit好像不行?用delphi7
 
Edit1.Text:=Trim(Edit1.Text);
 
这样不行啊,大哥
 
trim只是去除英文的空格,中文的空格怎么去掉
 
用Replace函数
 
function YourTrim(const S: WideString): WideString;var I, L: Integer;begin L := Length(S); I := 1; while (I <= L) and (S <= '&iexcl;&iexcl;') do Inc(I); if I > L then Result := '' else begin while S[L] <= '&iexcl;&iexcl;' do Dec(L); Result := Copy(S, I, L - I + 1); end;end;
 
中文的空格不是空格,是不能显示的字符或者是: " ",你必须确实知道你程序的字符编码方式,那些是不能显示的字符,才能编程序过滤!
 
edit1.Text:=stringreplace(edit1.Text,' ','',[rfReplaceAll]);
 
edit1.Text:=trim(stringreplace(edit1.Text,' &iexcl;&iexcl;','',[rfReplaceAll]));绝对ok
 
多人接受答案了。
 

Similar threads

回复
0
查看
1K
不得闲
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部