Заміна подвійних пробілів одинарними в delphi

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

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

Функція StringReplace замінює перше або все входження підрядка OldPattern в SourceString рядком NewPattern відповідно до настройками Flags. Як результат функції повертається змінена рядок.

    Мінлива Flags може містити жодного, один або обидва з цих значень:
  • rfReplaceAll. замінює всі входження
  • rfIgnoreCase. ігнорує регістр при пошуку

Ці значення задаються в квадратних дужках.

Приклад заміни подвійних пробілів одинарними в Delphi:

var
before, after. string;
begin
before: ='Текст в якому видаляються подвійні пробіли за допомогою Delphi';
after: = StringReplace (before, ' ', ' ', [RfReplaceAll]);
ShowMessage (before);
// Виведе: Текст в якому видаляються подвійні пробіли за допомогою Delphi
ShowMessage (after);
// виведе: Текст в якому видаляються подвійні пробіли за допомогою Delphi
end; end;

Для видалення повторюваних пробілів в Delphi ви можете використовувати наступну функцію:

Схожі статті