[Oleg]

Народ, помогите разобраться в чем здесь ошибка:
Эту функцию я пишу для деления текста на заданное кол-во символов по строчкам, например длина строки 5, тогда для текста я вызываю эту функцию с параметром SymbCount=5), ну я думаю понятен вопрос, помогите пожалуйста, в чем ошибка ???(тут я ещё убрал подсчет отстатка, т.е. его добавление, но это пока не важно).

Код:

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

Function DivText(Text:string;SymbCount:integer):string; var i,Len,DL,sl,el:integer; rText:string; begin rText:=''; Len:=Length(Text); if Len<=SymbCount then Result:=Text else begin dl:=Len div SymbCount; ost:=Len-dl*SymbCount; for i:=0 to dl-1 do begin sl:=(i*SymbCount)+1; el:=(sl+SymbCount)-1; rText:=rtext+#13+Copy(Text,sl,el); end; Result:=rText; end; end;

Помогите, в чем ошибка ?

[s0Creator]

Код:

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

Function DivText(Text:string;SymbCount:integer):string; var   i,Len,DL,sl,el<b><font color="Magenta">,ost</font></b>:integer;   rText:string; begin   rText:='';   Len:=Length(Text);   if Len<=SymbCount then Result:=Text else begin     dl:=Len div SymbCount;     ost:=Len <font color="Blue"><b>mod</b></font> SymbCount;     for i:=0 to dl-1 do begin       sl:=(i*SymbCount)+1;       el:=(sl+SymbCount)-1;       if rText = '' then rText:=Copy(Text,sl,SymbCount)       else rText:=rtext+#13<font color="Blue"><b>#10</b></font>+Copy(Text,sl,<font color="Magenta"><b>SymbCount</b></font>);     end;     Result:=rText;   end; end;

а можно так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

Function DivText(Text:string;SymbCount:integer):string; var   i, Len:integer; begin   Len:=Length(Text);   Result := Copy(Text,1,SymbCount);   i := SymbCount + 1;   while i < Len do   begin     Result := Result + #13#10 + Copy(Text,i,SymbCount);     i := i + SymbCount;   end; end;

[Oleg]

ты думаешь прям как и я, я просто пока удалил переменную ost У МЕНЯ БЫЛО ТАКОЕ ЖЕ НАЗВАНИЕ !!!(вот только я считал её так: (но разницы то нет, просто забыл про mod)

Код:

1	ost:=Len-dl*SymbCount;

Кстати, ost не используется у тебя, но это я доделаю, спасибо за помощь !
Всё, спасибо ещё раз, я понял свою ошибку, теперь функция выглядит так:

Код:

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

Function TCallingText.DivText(Text:string;SymbCount:integer):string; var ost,i,Len,DL,sl,el:integer; rText:string; begin rText:=''; Len:=Length(Text); if Len<=SymbCount then Result:=Text else begin dl:=Len div SymbCount; ost:=Len-dl*SymbCount; for i:=0 to dl-1 do begin sl:=(i*SymbCount)+1; el:=(sl+SymbCount)-1; if rText = '' then rText:=Copy(Text,sl,SymbCount) else rText:=rtext+#13+Copy(Text,sl,SymbCount); end; if ost>0 then Result:=rText+#13+Copy(Text,Length(text)-ost+1,SymbCount) else Result:=rText; end; end;

[s0Creator]

если я не ошибаюсь ост совсем не нужен
в твоем варианте остаток два раза должен выйти
он и так выходит на последнем цыкле
(надеюсь я не ошибся - у меня выводилась вся строка)

[Oleg]

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

если я не ошибаюсь ост совсем не нужен

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

[s0Creator]

Да, извини, ошибку заметил
(а говоришь одинаково мыслим)
Мне ближе второй вариант он и выводит все,
а в первом достаточно написать

Код:

1	for i:=0 to <font color="Blue"><b>dl</b></font> do begin

(и не возится с остатком)