[Grynyuk]

Как будет выглядеть сам код если под ряд будут стоять 2 и больше пробелов а надо оставить 1. Как для 2 подряд идущих пробелов я знаю а с 3 и больше затруднение

[lmikle]

Ну, если по простому, то в цикле вызывать stringreplace до тех пор, пока есть что менять:

Код:

While pos('  ',s)>0 do
S := stringreplace(s,'  ',' ',[]);

[dr. F.I.N.]

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

Ну, если по простому, то в цикле вызывать stringreplace до тех пор, пока есть что менять:

Код:

While pos('  ',s)>0 do
S := stringreplace(s,'  ',' ',[]);

достаточно одного раза вызвать СТРИНГРЕПЛЕЙС с флагом rfReplaceAll

[NumLock]

Сообщение от dr. F.I.N.

достаточно одного раза вызвать СТРИНГРЕПЛЕЙС с флагом rfReplaceAll

нет. тогда с 3-мя или 4-мя пробелами останется 2 пробела. с 5-ю пробелами останется 3 пробела.