？？怎么将字符串中的空格去掉？

Question

要是你想去前后的空格可以用trim(str:string),
要是你想去掉中间的我觉得需要做循环。不知道别人有没有高招。、
var
   str:arrary[1..100]:string;
   i,num,j:integer;  
begin
   num:=100;
   for i:=0 to num do
   begin
   if str[i]=' ' then
     for j:=i to num do
     begin
        str[j]:=str[j+1];        
     end;
     num:=num-1;
   end;
end;

Answer 1

s:='as   asdf';
for i:=1 to length(s) do
  begin
    if s[i]=' ' then
      delete(s,i,1);
  end;

Answer 2

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