Как заключить каждое слово в скобки в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

uses
  StrUtils;

function EncloseWordsInBrackets(const str: string): string;
var
  words: TStringDynArray;
  i: Integer;
begin
  // Разбиваем строку на массив слов
  words := SplitString(str, ' ');

  // Заключаем каждое слово в скобки
  for i := 0 to Length(words) - 1 do
    words[i] := '(' + words[i] + ')';

  // Собираем строку из массива слов, разделенных пробелами
  Result := JoinString(words, ' ');
end;

1
2
3
4
5
6

var
  str: string;
begin
  str := 'Это пример строки для тестирования';
  ShowMessage(EncloseWordsInBrackets(str));
end;

1

(Это) (пример) (строки) (для) (тестирования)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

uses
  StrUtils;

function EncloseWordsInBrackets(const str: string): string;
var
  words: TStringDynArray;
  i: Integer;
begin
  // Разбиваем строку на массив слов
  words := SplitString(str, ' ');

  // Заключаем каждое слово в скобки
  for i := 0 to Length(words) - 1 do
    words[i] := '(' + words[i] + ')';

  // Собираем строку из массива слов, разделенных пробелами
  Result := JoinString(words, ' ');
end;

var
  str: string;
begin
  str := 'Это пример строки для тестирования';
  ShowMessage(EncloseWordsInBrackets(str));
end;

1

(Это) (пример) (строки) (для) (тестирования)