如何过滤edit.text字符串前后的空格，edit.text可能为数字串，字母串，汉字串，或混合串 ——————————— 抓住快乐！

Hi!seagal2222:    Use  Trim function.

我的意思没有表达清楚，关键是不能录入全角字符，（大陆的输入法有全角和半角之分）trim可以过滤半角空格，但无法过滤全角空格 ——————————— 抓住快乐！

Hi:    這一篇討論供你參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40612 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

非常感谢fishman,我只想滤掉edit.text两侧的空格，因为有些输入可能要求在edit.text中间还有空格，不应被滤掉 ——————————— 抓住快乐！

另外，你的例子中，edit1中所存的字符是已知字符，实际中的字符不好事先指定，我只需这种功能，就是不能输入全角字符，其他可任意输入 ——————————— 抓住快乐！

seagal2222 你好 試試以下  Edit1.text := StringReplace(Edit1.text,' ','',[rfReplaceAll]);

Hi,    感謝 Chance36 大大指教， 可以使用 Chance36 所建議的函數，將全形空白轉換為一個或是二個 Space，再用 mathewzhao 建議的 Trim Function，就 OK 啦， 嘿嘿！！三個臭皮匠，勝過一個諸葛亮 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

大大好，我用如上的方法，为什么报：stack overflow的错误？？    在dataset的dw字段的onchange事件中，    dw为字符型

procedure TDatasetsDM.DWDataSetDMChange(Sender: TField);
begin
  //去掉代码空格
  DWDatasetDM.AsString :=Trim(StringReplace(DWDatasetDM.AsString, ' ', '', [rfReplaceAll]));    end;

在数据集的post事件里 添加： //去掉代码空格 str := DWDatasetDM.AsString; DWDatasetDM.AsString := Trim(StringReplace(str, ' ', '', [rfReplaceAll])); 好了 發表人 - zzmbeyond01 於 2004/12/19 21:05:59

我還想到一個方法，你可以在Edit的Event內的OnKeyPress 或 OnKeyDown把不要被輸入的符號去掉。 ----------------------- God bless you! I am Dark_Angel.

------
-----------------------
God bless you!
I am Dark_Angel.