关于数据和数据之间的空格~~~~~~~~~

Question

fx   2     3    5     1   0.1   *11
我想让这行数据转换一下数据和数据之间的间隔只有一个空格，
现在的是不同的有的是3个有的是4个还有一个的，我想都要只有一个的
应如何处理啊！！

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
 s : string;
 i : integer;
begin
   Memo1.Lines.Clear;
   Memo1.Text := 'fx   2     3    5     1   0.1   *11';
   Memo1.Lines.Delimiter := ' ';
   Memo1.Lines.DelimitedText := Memo1.Text;
   for I := 0 to memo1.Lines.Count -1 do
   begin
     s := s  + Memo1.Lines[i]+ ' ';
   end;
   Memo1.Text := s;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
 s : string;
 sl:tstringlist;
 i:integer;
begin
  s:= 'fx   2     3    5     1   0.1   *11';
  sl := tstringlist.Create;
  sl.Delimiter := '''';
  sl.DelimitedText := s;
  s := '';
  for i := 0 to sl.Count - 1 do
  begin
    s :=s + sl.Strings[i]+ ' ';
  end;  showmessage(s);
  sl.Free;
end;