Якщо у вас виникла потреба, використовуючи 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;
