Как разделить длинную строку на «завернутые» строки?

Question

Как это сделать в Delphi?

У меня очень длинная строка.Мне нужно обернуть жало каждые 5 букв и добавить точку в конце завернутой строки.

Пример строки:

ssssssssssssssssssssssssssssssssssssssssssssssssssssssssss

Результат:

sssss. 
sssss. 
sssss. 
sssss.

Answer 1

Ваш учитель, вероятно, хочет, чтобы вы выучили достаточно паскаля, чтобы написать что-то вроде этого:

 loop through the characters in the string
   get a character from the string and add it to another string
   check if five letters have gone by, and if so, 
      add a dot and a carriage-return-and-linefeed character.
 end loop

Answer 2

uses SysUtils;

Result := WrapText(s, '.'^M^J, [], 5);

Но будьте осторожны с этим примечанием из документации :

WrapText не вставляет разрыв во встроенную строку в кавычках.

Answer 3

Этот работает только в последних версиях Delphi:

  for c in s do
  begin
    Write(c);
    if i mod maxSize=maxSize-1 then
      WriteLn('.');
    inc(i);
  end;

Перебор всех символов

  for i := 1 to length(s) do
  begin
    Write(s[i]);
    if i mod maxSize=0 then
      WriteLn('.');
  end;

Копировать куски

  for i := 0 to length(s) div maxSize do
    WriteLn(Copy(s,1+i*maxSize,maxSize),'.');

Answer 4

Что-то вроде следующего:

while Length(s) > 0 do
begin
  Result := Result + '. ' + Copy(s, ...);
  Delete(s, ...);
end;