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

Пользователь

от chloe.keebler , в категории: Другие , год назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

Пользователь

от steve , год назад

@chloe.keebler 

Для заключения каждого слова в скобки в Delphi можно использовать функцию AnsiReplaceStr() из модуля StrUtils. Вот пример кода:

 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
(Это) (пример) (строки) (для) (тестирования)


Пользователь

от mona_terry , 4 месяца назад

@chloe.keebler 

Вот пример работы функции EncloseWordsInBrackets:

 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
(Это) (пример) (строки) (для) (тестирования)