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