Форматирование текста

[dcLout]

Всем доброго времени суток!
Прошу! Кто нибудь,помогите кодом.Мне нужна функция, которая будет выполнять форматирование текста, учитывая левую и правую границы.

Например, если у меня ограничение стоит 5 символов в строке,то остальные символы после пятого, должны будут перемещаться на следующую строку.

[Sciv]

for i:=1 to length(s) do
  if (i mod 5=1) and (i>5) then WriteLn(s[i]) else Write(s[i]);

[dcLout]

Сообщение от Sciv

for i:=1 to length(s) do
  if (i mod 5=1) and (i>5) then WriteLn(s[i]) else Write(s[i]);

Вариант конечно не плохой,но мне нужно что бы строка в функцию возвращалась. Мне нужно сделать функцию.

[Sciv]

Так?

function FormatStr(s: string): STRING;
var i: integer;
begin
  s1:='';
  for i:=1 to length(s) do
    if (i mod 5=1) and (i>5) then s1:=s1+#10#13+s[i] else s1:=s1+s[i]);
  FormatStr:=s1;
end;

[dcLout]

Сообщение от Sciv

Так?

function FormatStr(s: string): STRING;
var i: integer;
begin
  s1:='';
  for i:=1 to length(s) do
    if (i mod 5=1) and (i>5) then s1:=s1+#10#13+s[i] else s1:=s1+s[i]);
  FormatStr:=s1;
end;

Да да,именно так.А не подскажете ещё одну такую вещь.Как мне связать конец строки,который мы перемещаем на следующую строку и начало следующей строки.

Например если в файле вот так:
12345678
12
abcdefgh

То получить нужно вот так:
12345
67812
abcde
fgh

[Sciv]

Так если у Вас работа с файлом - почему бы не считывать из него по пять символов, убирая #10#13, в массив, а потом выводить массив? Готовое форматирование, и все это оформить в функцию.

А в текущей версии - считываете все строки из файла в одну строку и передаете затем эту строку в качестве входного параметра функции.

[dcLout]

Сообщение от Sciv

Так если у Вас работа с файлом - почему бы не считывать из него по пять символов, убирая #10#13, в массив, а потом выводить массив? Готовое форматирование, и все это оформить в функцию.

А в текущей версии - считываете все строки из файла в одну строку и передаете затем эту строку в качестве входного параметра функции.

Ооооо,благодарю.Я так и сделаю!