Код:
len:=length(text);
while len>dl do begin
s1:=copy(text,3,dl);
//for i:=0 to len do begin
memo1.Lines.add(s1);
delete(text,3,dl);
end;
memo1.Lines.add(text);
end;
если
Цитата:
text:=1111111
2222222
3333333
4444444
5555555
6666666
7777777
8888888
9999999
0100101
|
и
const dl=8;
все отлично! т.к символов в строку влазит, но если
const dl=5; а это значит что символы в одной строке не влезли не хватает еще 3, то
result начинает просто прокручивать до бесконечности.