想删掉 MEMO 控件里面的所有空格字符，不知道怎么写代码

Question

比如像这样的一些字符abcdefg dku   ykbz 3w wer  46  57  56876   jsahk;hp q er一行或是多行的。我想删掉中间的空格，可是我脑袋确实转不过来。不知道怎么写代码了。希望有人能指点一下。

Answer 1

用StrUtils.pas中的AnsiReplaceText即可：
如下：uses
StrUtils;var
TempStr: String;TempStr := AnsiReplaceText(Memo1.Text,' ','');
Memo1.Text := TempStr;

Answer 2

Memo1.Text := StringReplace(Memo1.Text, ' ', '', [rfReplaceAll]);