[leon2009]

Здравствуйте! var text:='0123456789aaabbbccc'; Текст строка, знаю что 100 символов. как передать значение в str:string по 2 символа.
пр: в memo = 01 потом 23 потом 45 и.т.д пока строка (текст) не закончится
если можно ПОЖАЛУЙСТА не надо через FOR
Можно пару примерчиков

Код:

Result := MemoryStream.DataString;
until Result <= 0;

[leon2009]

или я прошу из ряда фантастики?

[Vladimr]

Код:

const dl=5; //длина передаваемой строки за раз

while length(text)>dl do
begin
s1:=copy(text,1,dl); //считывание символов
memo1.lines.add(s1); //вывод символов
delete(text,1,dl); //удаление
end;

memo1.lines.add(text); //вывод оставшихся символов

[leon2009]

результат:

Memo1
01
23
45
67
89
aa
ab
bb
cc
c

text:='0123456789aaabbbccc';
а нужно

Memo1
11111
22222
33333
44444
55555
66666
77777
88888

result:=11111 22222 33333 44444 55555 66666 77777 88888
как файл загружаешь не сразу а блоками так же и текстовую строку поделить на 5 символов и выводить по 5 символов из 100.
а здесь код сразу все выдал.

[leon2009]

пример
если text=
11111aa
22222bb
33333cc
44444dd
то в коде выше
вывод будет
Memo1

11111
aa 22
222bb
3333
3cc 4
4444d
d

а если не обрезать и оставить
как есть

11111aa
22222bb
33333cc
44444dd

только перенести не сразу текст а постепенно сначала:
11111aa
потом
22222bb потом
33333cc потом
44444dd

[leon2009]

Код:

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 начинает просто прокручивать до бесконечности.

[Kailon]

Сообщение от 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 символов и выводить их пока не закончится строка. Если же необходимо выводить блоками, то их нужно где-то накапливать, например в массиве.