Как удалить лишние пробелы из строки?

[MyLastHit]

Всем привет. Подскажите пожалуйста как можно удалить лишние пробелы?
Пример: ' Как удалить лишние проблелы ?'=> 'Как удалить лишние пробелы?'

Кпримеру как удалить буквы и символы я знаю(delete+pos) а как быть с пробелами?

[DIgorevich]

а чем пробел от символов отличается

[MyLastHit]

Собственно ессли зачищать пробелы из строки то получается вот так :
' Как удалить лишние проблелы ?'=> 'Какудалитьлишниепробелы?'
Потому и спрашиваю)

[DIgorevich]

тогда так: http://delphiworld.narod.ru/base/str_del_spaces.html и так: http://delphiworld.narod.ru/base/delete_substrings.html

[evg_m]

Как удалить лишние пробелы?

начать с определения понятия лишний пробел (к примеру)
1 текст или оператор
2.процедура, функция
3. "цитата с размером "

[Hacker19_90]

попробуй так (я не проверял)

procedure delprob (var stroka: string);
var
    i: integer;
begin
    for i := 1 to length(stroka) do
    begin
        if (stroka[i] = ' ') and (stroka[i+1] = ' ') then
            delete(stroka, i, 1);
    end;
end;

[Stilet]

Мне кажется надежнее будет:

s:='nen   nng  g g f';
while (s<>'')and(pos('  ',s)<>0) do s:=StringReplace(s,'  ',' ',[rfreplaceall]);

[r9m]

hacker19_90 твой код работать будет неверно.

Stilet, а зачем (s<>'') ? Имхо лучше так:

while pos('  ',s)<>0 do s:=StringReplace(s,'  ',' ',[rfreplaceall]);

[Hacker19_90]

hacker19_90 твой код работать будет неверно

Поподробнее!

[Serge_Bliznykov]

Поподробнее!

цикл FOR от 1 до длины строки,
а строка то уменьшается (delete(...) - вот и будут проблемы!