Показать сообщение отдельно
  #14  
Старый 28.04.2014, 14:24
Аватар для madMonia
madMonia madMonia вне форума
Новичок
 
Регистрация: 25.02.2014
Сообщения: 50
Версия Delphi: Delphi XE3
Репутация: 2545
По умолчанию

Цитата:
Сообщение от Страдалецъ
Да хоть двадцать, ключ rfReplaceAll заставит функцию делать замены пар пробелов до упора.

Код:
    text := 'a    b';
    text := StringReplace(text, '  ', ' ', [rfReplaceAll]);
    text := StringReplace(text, ' ', '0', [rfReplaceAll]);

Результат: a00b (на DelphiXE3)
ЧЯДНТ?

P.S. В куске кода еще и результат работы StringReplace никуда не сохраняется.
__________________
Невозможно заточить карандаш тупым топором. Столь же тщетно пытаться сделать это десятком тупых топоров
Ответить с цитированием