Помогите разобраться, не понял Опции

[DimaD]

Помогите разобраться. Нашел у вас на форуме и не помогу понять:

{ удаляем лишние пробелы }
  Repeat
    p := Pos('  ', s);
    If p > 0 Then Delete(s, p, 1)
  Until p = 0;

Удаляет ведь все пробелы из строки.

Сообщение отредактировано: volvo - 6.11.2006 16:26

[volvo]

DimaD, во-первых, измени название темы и пользуйся тегами CODE...

А во-вторых, там ведь 2 пробела в Pos, а удаляется только один:

 p := Pos('  ', s); { <-- Вот тут 2 пробела }