[dr. F.I.N.]

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

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

Код:

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

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