如何清除全角方式下的空格。Trim函数不可以的，只能清除半角下的空格。

[CeleronII]

如题！

[王集鹄]

S := StringReplace(S, '　', '', [rfReplaceAll]);
//清除全部

while Pos('　', S) = 1 do
Delete(S, 1, 2);
//清除前导

while Pos('　' + #0#0, S + #0#0) > 0 do
Delete(S, Length(S) - 1, 2);
//清除结尾

[cdchq]

function ClearCharFromStr(const S:String;vChar:Char): String;
var
vStr:String;
begin
vStr := S;
repeat
Result := vStr;
ReplaceString(vStr, vChar, '');
until Result = vStr;
end;

程序中这样调用函数就行了。
ClearCharFromStr(s,' ','');