удалить лишние пробелы со строки так чтобы между символами осталось по одному пробелу delphi

[MASIK]

Мне нужно удалить лишние пробелы со строки так чтобы между символами осталось по одному пробелу. Скжите пожалуйста как ето зделать.

[Stilet]

Какой язык?

Например так, если в Делфи.

var e:TStringList;k:integer;
begin
s:='qwqw   qwe qeqw eqwe   qeqwe';
e:=TStringList.Create;
e.Delimiter:=' ';
e.DelimitedText:=s;s:='';
for k:=0 to e.Count-1 do if e[k]<>'' then s:=s+' '+e[k];

caption:=s;

end;

[Alar]

процедура замены

procedure search(S,S1:string);
var str:string;
    i,index:integer;
begin
for i:=0 to Form1.RichEdit1.Lines.Count-1 do //Count-1 - обрати внимание!!!
 begin
 str:=Form1.RichEdit1.Lines.Strings[i];
 while pos(S,str)<>0 do
  begin
  index:=pos(S,str);
  delete(str,index,length(S));
  insert(S1,str,index);
  end;
 Form1.RichEdit1.Lines.Strings[i]:=str;
 end;
end;

Удаление лишних знаков

search (' :',':');
search (':','@f@ ');
search ('  ',' ');
search ('@f@',':');

[Alar]

DimaG, возможно стоит запостить подобные вопрос в раздел C++?

[zetrix]

Как вариант:
Искать двойной пробел Pos(s,' ') а потом заменять его на одинарный. И делать это до тех пор, пока в строке не останется 2-х пробелов подряд.

[Квэнди]

тогда уж stringreplace

[puporev]

Вот пример из учебника по Паскалю. Проверял, работает, только выход заедает.
Дана строка, в которой слова разделены произвольным количеством пробелов.
Удалить все лишние пробелы, кроме одного.
Вывести исходную строку и результат обработки.

          var    s:string[80];
               i,k:integer;
                ch:char;
                 b:boolean;
                     begin
                          writeln('Работает программа- пример на использование строк');
                             repeat
                                writeln('Введите исходную строку');
                                readln(s);
                                writeln('Исходная строка = ',s);
                                k:=length(s);{Определяем длину введенной строки}
                                i:=1;
                                  while (i<=k-1) do
                                       begin
                                          if s[i]=' ' then
                                             begin
                                                 repeat
                                                    if s[i+1]=' ' then
                                                       begin
                                                           delete(s,i,1);
                                                            k:=k-1;
                                                             b:=false;
                                                       end
                                                           else b:=true;
                                                  until b;
                                             end;
                                          i:=i+1;
                                      end; 
                                  writeln('Результат преобразования = ',s);
                                  writeln('Будете еще преобразовывать строки? ');
                                 readln(ch);
                            until ch='n'; не работает
        end.
]

[gettingup]

спасибо огромное разобрался