您好，请问怎样去掉字符串中间的空格？谢谢

Question

//把空格全部替换成空即可S := StringReplace(S, #32, '', [rfReplaceAll]);

Answer 1

begin
str,temp: string;
temp:='';
for i:=1 to length(str) do
 if str[i]<>'' then
  temp:=temp+str[i];
end;

Answer 2

对不起，写错了
StringReplace()

Answer 3

Up
S:=replacestring(S,' ','',[rfReplaceAll]);
我测试过了，没有问题

Answer 4

不好意思，传染：）
Up
S:=StringReplace(S,' ','',[rfReplaceAll]);
我测试过了，没有问题

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := '    123.5';
  { Delete spaces in string s }
  while Pos(' ', S) > 0 do
    Delete(S,Pos(' ', S),1);
  ShowMessage(s);
end;