怎样去掉字符窜中的空格字符，马上给分

Question

用什么函数

Answer 1

var S: string;begin
  S := '   123.5';
  { Convert spaces to zeros }
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
end;

Answer 2

while AnsiPos(' ',str)>0 do
   Delete(Str,AnsiPos(' ',str,1);
//太久没有用了,参数位置可能有误。

Answer 3

var S: string;begin
  S := '   123.5';
  { Convert spaces to zeros }
  while Pos(' ', S) > 0 do
    delete(s,Pos(' ', S),1);end;

Answer 4

用pos
在delphi 的help中找一下

Answer 5

while AnsiPos(' ',str)>0 do
   Delete(Str,AnsiPos(' ',str),1);
//太久没有用了,参数位置可能有误。

Answer 6

var
   vStr, vTempStr : String;
   I : Integer;
begin
   vStr := ' 25 8 l jiokjl.d 25 ';
   vTempStr := '';
   for I := 1 to Length(vStr) do
   begin
      if vStr[I] <> ' ' then vTempStr := vTempStr + vStr[I]
      else Continue;
   end;
   Result := vTempStr;
end;

Answer 7

StringReplace(sSTR, ' ', '', [rfReplaceAll]);

Answer 8

你可以用trim（）函数先去掉字符串两边的空格，然后把去空格后的字符串保存在一个字符串变量里。接下来你可以用一个循环语句来逐位判断一下字符是否为空，若为空则不拷贝到新字符串中。相反则拷贝到新字符串中。

Answer 9

应该是StringReplace(sSTR, ' ', '', [rfReplaceAll]);

Answer 10

StringReplace(src, ' ', '', [rfReplaceAll]);
或
out_S:='';  //out_S是结果
for i:=1 to length(in_S)
 if in_S[i]<>' ' then out_S:=out_S+in_S[i]

Answer 11

StringReplace(字符串, '空格', '沒有空格', [rfReplaceAll]);

Answer 12

foreveryday007(有無數種方法可以浪費一天的時間…但是…) 的方法比较好

Answer 13

字符串两边空格用trim()
还可以用StringReplace(),把字符串中空格置换掉

Answer 14

StringReplace(字符串,' ','',[rfReplaceAll]);