Как разделить текст на n частей в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

uses
  System.StrUtils;

var
  MyString: string;
  MyArray: TArray<string>;
begin
  MyString := 'Это пример текста для разделения на три части';
  MyArray := SplitString(MyString, ' ', 3);
  // Результат: MyArray[0] = 'Это', MyArray[1] = 'пример', MyArray[2] = 'текста для разделения на три части'
end;

 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

var
  MyString: string;
  SplitTextList: TStringList;
  i: Integer;
  n: Integer;
begin
  MyString := 'Пример текста для разделения на n частей';
  n := 3; // Укажите количество частей

  SplitTextList := TStringList.Create;
  try
    SplitTextList.Delimiter := ' ';
    SplitTextList.DelimitedText := MyString;

    for i := 0 to n - 1 do
    begin
      if i < SplitTextList.Count then
        ShowMessage(SplitTextList[i])
      else
        ShowMessage('Недостаточно элементов для разделения на ' + IntToStr(n) + ' части');
    end;
  finally
    SplitTextList.Free;
  end;
end;