怎样去掉字符中间的空格

Question

怎样去掉字符中间的空格

Answer 1

Function RemoveSpace(Str:String):String;
var
  i : integer;
begin
  for i:=1 to length(Str) do if Str[i]<>' ' then Result := Result = Str[i];
end;

Answer 2

function fuckblank(b:string):string
tstring :a
begin
j := 0;
for i = 0 to b.length -1 do
begin
  if b[i]<> ' ' then 
     begin
        a[j]:= b[i];
            j=j+1;
     end;
end;
return a;
end   

Answer 3

s1 := StringReplace(s1, ' ', '', [rfReplaceAll]);

Answer 4

dashou_hs(大手) 的方法较好，
也可循环查找代替。

Answer 5

dashou_hs(大手) 的方法经典啊！