Цитата:
|
Сообщение от leon2009
Здравствуйте! var text:='0123456789aaabbbccc'; Текст строка, знаю что 100 символов. как передать значение в str:string по 2 символа.
пр: в memo = 01 потом 23 потом 45 и.т.д пока строка (текст) не закончится 
если можно ПОЖАЛУЙСТА не надо через FOR |
Задача простая. По 2 символа выводить в Memo пока не закончится строка. Вроде всё понятно. НО! Что начинается дальше?
Вот здесь Ваше решение не соответствует Вашему же заданию
Цитата:
|
Сообщение от leon2009
text:='0123456789aaabbbccc';
а нужно
Memo1
11111
22222
33333
44444
55555
66666
77777
88888
result:=11111 22222 33333 44444 55555 66666 77777 88888
как файл загружаешь не сразу а блоками так же и текстовую строку поделить на 5 символов и выводить по 5 символов из 100.
а здесь код сразу все выдал.
|
Если известно, что строка 100 символов, то по 5 символов поровну делится вся строка, а вот если по 8, то уже нет. Куда остаток? Так по сколько символов выводить? И как понимать "выводить по 5 символов"? По запросу? По таймеру?
Функция, что Вам предложили, за каждый проход будет отрезать 5 символов и выводить их пока не закончится строка. Если же необходимо выводить блоками, то их нужно где-то накапливать, например в массиве.