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

[Stilet]

r9m

А если строка пустая будет после удаления? Я вот не помню как себя поведет POS при пустой строке. Хотя скорее всего ты прав.

[r9m]

2 hacker:
ты бы сам попробовал передать туда, нуу скажем вот такую строку

'          djfdhgkjh   dfkjghdfkgh          dfghdfkjg             '

2 Stilet
вернёт 0

[r9m]

удалить пожалуйста

[r9m]

удалить пожалуйста

[Hacker19_90]

Точно несколько пробелов не прорабатывает!!! Щас минуточку...

[Hacker19_90]

procedure delprob (var stroka: string);
var
    i: integer;
begin
    i := 1;
    while (i <= Length(stroka)) do
    begin
        if ((stroka[i] = ' ') and (stroka[i+1] = ' ')) then
        begin
            delete(stroka, i, 1);
            Dec(i);
        end;
        Inc(i);
    end;
end;

[r9m]

Да уж, экономичный алгоритм )) Ну ладно, допустим. А кто в начале и в конце пробелы будет удалять?

[Hacker19_90]

Сообщение от r9m

Да уж, экономичный алгоритм )) Ну ладно, допустим. А кто в начале и в конце пробелы будет удалять?

ты бы чем умничать взял бы лучше и подправил код!
Вопрос был как можно удалить пробелы?
Вот так можно! Вот тебе костяк! Понятным для новичка способом написан. Чего не хватает, берём подправляем!

[r9m]

Да а чё ты так взъелся? Я не умничаю, я поправляю. Твой первый вариант был нормальным, только чуток подправить:

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

[Grag]

Serge_Bliznykov, увы, я уже наступал на эти грабли... Параметр окончания цикла FOR вычисляется один раз и будет постоянным, пока работает цикл, хотя длина строки будет уменьшатся... Поэтому процедура Delete просто не будет выполняться, при выходе параметры цикла за длину строки...