Подпрограмма: в строке символов заменить каждую из групп стоящих рядом точек многоточием - Free Pascal

Формулировка задачи:

Написать подпрограмму которая в строке символов заменяет каждую из групп стоящих рядом точек многоточием. Очень нужна помощь!

Код к задаче: «Подпрограмма: в строке символов заменить каждую из групп стоящих рядом точек многоточием - Free Pascal»

textual
uses regexpr;
 
function f(const s : string) : string;
begin
  with TRegExpr.Create do
  try
    Expression := '\.{2,}';
    Result := Replace(s, '...', true);
  finally
    Free;
  end;
end;
 
// ... тут использование функции

10   голосов, оценка 4.300 из 5


СОХРАНИТЬ ССЫЛКУ