Удаление разрывов строк в Delphi

Если у вас возникла необходимость используя Delphi удалить разрывы строк из текста, то можно воспользоваться следующей функцией:

• function StringReplace (const SourceString, OldPattern, NewPattern : string; Flags : TReplaceFlags) : string;

Функция StringReplace заменяет первое или все вхождения подстроки OldPattern в SourceString строкой NewPattern в соответствии с настройками Flags. В качестве результата функции возвращается измененная строка.

Переменная Flags может содержать ни одного, одно или оба из этих значений:
• rfReplaceAll : заменяет все вхождения
• rfIgnoreCase : игнорирует регистр при поиске

Эти значения задаются в квадратных скобках.

Пример удаления разрывов строк в Delphi:

uses SysUtils;

var
   before, after : string;
begin
   before:='Текст, из которого' + #10#13 + 'с помощью Delphi удалят разрывы строк';
   //Change line break #10 and #13 on a space
   after := StringReplace(StringReplace(before, #10, ' ', [rfReplaceAll]), #13, ' ', [rfReplaceAll]);
   ShowMessage(before);
   //Выведет: Текст, из которого
   //с помощью Delphi удалят разрывы строк
   ShowMessage(after);
   //выведет: Текст, из которого с помощью Delphi удалят разрывы строк
end;