Якщо у вас виникла необхідність видалити подвійні пробіли або замінити подвійні пробіли одинарними використовуючи 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;